jlacko

library("sf")
library("zip")
set.seed(1)

n = 500000
df = data.frame(x = runif(n, 160000, 877000), y = runif(n, 126000, 780000))
df = st_as_sf(df, coords = c("x", "y"), crs = "EPSG:2180")
buff = st_buffer(df, dist = 5000)

# ====================================================================

jlacko

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

jlacko

---
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

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

# 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 {