Skip to content

Instantly share code, notes, and snippets.

View jlacko's full-sized avatar
🦜
wrrritin' pirrrate code, arrr!

Jindra Lacko jlacko

🦜
wrrritin' pirrrate code, arrr!
View GitHub Profile
@jlacko
jlacko / rstudio-init-script.R
Last active July 7, 2021 21:35
Init script for new RStudio installation, promoting best practices
# make certain jsonlite is available
if(!require(jsonlite, quietly = TRUE)) {
install.packages("jsonlite")
library(jsonlite)
}
# get the path to settings file
path <- if (Sys.info()[["sysname"]] == "Windows") {
paste0(Sys.getenv('APPDATA'), "\\RStudio\\rstudio-prefs.json")
} else {
@jlacko
jlacko / map_projections.R
Last active March 23, 2021 08:01 — forked from DavZim/map_projections.R
Creates a gif of the world in different map projections
library(tidyverse)
library(sf)
library(giscoR)
library(gganimate)
# world, with Greenland and Congo (roughly equal in area) in red
world <- gisco_get_countries(resolution = "20") %>%
mutate(color = ifelse(CNTR_ID %in% c('GL', 'CD'), 'red', 'black')) %>%
group_by(color) %>%
summarise() %>%
@jlacko
jlacko / sql-connect.Rmd
Created September 23, 2022 14:23
Připojení vzdálené databáze + spuštění SQL kódu v prostředí RMarkdownu
---
title: "Příklad volání SQL z prostředí RStudia"
output: html_document
date: "`r Sys.Date()`"
---
Prvním krokem je připojení k databázi v chunku typu R; zde dataset financial z https://relational.fit.cvut.cz/dataset/Financial
Funkce připojovacího chunku je aktivovat připojení k databázi (podle instrukcí na stránkách FIT). Chunk je typu R.
@jlacko
jlacko / czso-api-call.R
Created March 26, 2023 14:12
Call na API Českého statistického úřadu - číselník obcí + populace
library(dplyr)
library(czso)
# CZSO číselník obcí - #043
cisob <- czso::czso_get_codelist("cis43") %>%
mutate(chodnota = as.character(chodnota)) %>%
select(KOD_OBEC = chodnota, NAZ_OBEC = text)
# CZSO číselník okresů - #0101