# script to prepare data included with the package
library(sf)
library(dplyr)
library(janitor)
library(here)
source(here::here("R", "download_RUIAN.R"))
source(here::here("R", "cache_settings.R"))
# set up directory with ruian -----------------------------------------------------------------
ruian_dir <- .download_RUIAN()
# obce ----------------------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "OBCE_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
obce <- data %>%
janitor::clean_names()
usethis::use_data(obce, overwrite = TRUE)
# katastralni uzemi ---------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "KATUZE_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
katastralni_uzemi <- data %>%
janitor::clean_names()
usethis::use_data(katastralni_uzemi, overwrite = TRUE)
# okresy --------------------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "OKRESY_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
okresy <- data %>%
janitor::clean_names()
usethis::use_data(okresy, overwrite = TRUE)
# orp -----------------------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "ORP_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
orp <- data %>%
janitor::clean_names()
usethis::use_data(orp, overwrite = TRUE)
# pou -----------------------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "POU_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
pou <- data %>%
janitor::clean_names()
usethis::use_data(pou, overwrite = TRUE)
# VUSC_P --------------------------------------------------------------------------------------
data <- st_read(file.path(ruian_dir, "VUSC_P.shp"),
stringsAsFactors = FALSE,
options = "ENCODING=Windows-1250", quiet = TRUE
)
st_geometry(data) <- NULL
kraje <- data %>%
janitor::clean_names()
usethis::use_data(kraje, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.