From e72899ee5e3a6d38d8bc89ed5558777c8f355321 Mon Sep 17 00:00:00 2001 From: Jindra Lacko Date: Sat, 28 Oct 2023 00:06:23 +0200 Subject: [PATCH] historie in principle working / relates #40 --- NAMESPACE | 1 + R/historie.R | 65 +++++++++++++++++++++++++++++++++++++++++++++++++ man/historie.Rd | 63 +++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 129 insertions(+) create mode 100644 R/historie.R create mode 100644 man/historie.Rd diff --git a/NAMESPACE b/NAMESPACE index 9546c4b..db5dd0c 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -5,6 +5,7 @@ export(casti) export(chr_uzemi) export(geocode) export(geomorfo) +export(historie) export(kraje) export(lesy) export(obce_body) diff --git a/R/historie.R b/R/historie.R new file mode 100644 index 0000000..9c970a2 --- /dev/null +++ b/R/historie.R @@ -0,0 +1,65 @@ +#' Historical censuses of the Czech Republic +#' +#' Function returning historical admin areas of the Czech Republic, together with relevant census data as specified by parameter **era**. +#' +#' Of notable interest is the 1930 census, which was the last pre-war - and thus the last one to include Czechoslovak citizens of German ethnicity. +#' +#' Due to package size constraints the data are stored externally (and a working internet connection is required to use the package). +#' +#' +#' @param era a historical era of interest. +#' +#' @return `sf` data frame with historical admin area names & census data + geometry; namely: +#' +#' \describe{ +#' \item{okresy_1921}{soudní okresy + census 1921; 328 rows / 92 columns + geometry} +#' \item{okresy_1930}{soudní okresy + census 1931; 330 rows / 90 columns + geometry} +#' \item{okresy_1947}{politické okresy + census 1947; 162 rows / 16 columns + geometry} +#' \item{okresy_1950}{správní okresy + census 1950; 193 rows / 57 columns + geometry} +#' \item{okresy_1961}{správní okresy + census 1960; 76 rows / 105 columns + geometry} +#' \item{okresy_1970}{správní okresy + census 1970; 76 rows / 144 columns + geometry} +#' \item{okresy_1980}{správní okresy + census 1980; 76 rows / 148 columns + geometry} +#' \item{okresy_1991}{správní okresy + census 1991; 76 rows / 155 columns + geometry} +#' \item{okresy_2001}{správní okresy + census 2001; 77 rows / 174 columns + geometry} +#' \item{okresy_2011}{správní okresy + census 2011; 77 rows / 176 columns + geometry} +#' \item{kraje_1950}{kraje + census 1950; 13 rows / 55 columns + geometry} +#' \item{kraje_1961}{kraje + census 1960; 8 rows / 103 columns + geometry} +#' \item{kraje_1970}{kraje + census 1970; 8 rows / 144 columns + geometry} +#' \item{kraje_1980}{kraje + census 1980; 8 rows / 146 columns + geometry} +#' \item{kraje_1991}{kraje + census 1991; 8 rows / 153 columns + geometry} +#' \item{kraje_2001}{kraje + census 2001; 14 rows / 172 columns + geometry} +#' \item{kraje_2011}{kraje + census 2011; 14 rows / 174 columns + geometry} +#' } +#' +#' Credits: +#' 1) „Tento výstup vznikl v rámci řešení projektu číslo DF12P01OVV033 Zpřístupnění historických prostorových a statistických dat v prostředí GIS řešeného v rámci programu Aplikovaného výzkumu a vývoje národní a kulturní identity (NAKI), jehož poskytovatel je Ministerstvo kultury České republiky.“ +#' 2) „JÍCHOVÁ, J., SOUKUP, M., NEMEŠKAL, J., OUŘEDNÍČEK, M., POSPÍŠILOVÁ, L., SVOBODA, P., ŠPAČKOVÁ, P. a kol. (2014): Geodatabáze historických statistických a prostorových dat Česka ze Sčítání lidu, domů a bytů 1921−2011. Urbánní a regionální laboratoř, Přírodovědecká fakulta Univerzity Karlovy v Praze, Praha.“ +#' +#' @source Urbánní a regionální laboratoř (UrRlab) působící na katedře sociální geografie a regionálního rozvoje Přírodovědecké fakulty Univerzity Karlovy v Praze +#' +#' @examples +#' +#' \donttest{ +#' library(sf) +#' +#' pre_war <- RCzechia::historie("okresy_1930") +#' +#' plot(pre_war["národnost německá"]) +#' +#' } +#' +#' @export + +historie <- function(era) { + + if(missing(era)) { + stop("historical era is an obligatory parameter!") + } + + if (!is.element(era, c("okresy_1921", "okresy_1930", "okresy_1947", "okresy_1950", "okresy_1961", "okresy_1970", "okresy_1980", "okresy_1991", "okresy_2001", "okresy_2011", "kraje_1950", "kraje_1961", "kraje_1970", "kraje_1980", "kraje_1991", "kraje_2001", "kraje_2011"))) { + stop(paste(era, "is not a valid historical era!")) + } + + result <- .downloader(paste0("history_", era, ".rds")) + result +} diff --git a/man/historie.Rd b/man/historie.Rd new file mode 100644 index 0000000..f47df03 --- /dev/null +++ b/man/historie.Rd @@ -0,0 +1,63 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/historie.R +\name{historie} +\alias{historie} +\title{Historical censuses of the Czech Republic} +\source{ +Urbánní a regionální laboratoř (UrRlab) působící na katedře sociální geografie a regionálního rozvoje Přírodovědecké fakulty Univerzity Karlovy v Praze \url{https://www.historickygis.cz/} +} +\usage{ +historie(era) +} +\arguments{ +\item{era}{a historical era of interest.} +} +\value{ +\code{sf} data frame with historical admin area names & census data + geometry; namely: + +\describe{ +\item{okresy_1921}{soudní okresy + census 1921; 328 rows / 92 columns + geometry} +\item{okresy_1930}{soudní okresy + census 1931; 330 rows / 90 columns + geometry} +\item{okresy_1947}{politické okresy + census 1947; 162 rows / 16 columns + geometry} +\item{okresy_1950}{správní okresy + census 1950; 193 rows / 57 columns + geometry} +\item{okresy_1961}{správní okresy + census 1960; 76 rows / 105 columns + geometry} +\item{okresy_1970}{správní okresy + census 1970; 76 rows / 144 columns + geometry} +\item{okresy_1980}{správní okresy + census 1980; 76 rows / 148 columns + geometry} +\item{okresy_1991}{správní okresy + census 1991; 76 rows / 155 columns + geometry} +\item{okresy_2001}{správní okresy + census 2001; 77 rows / 174 columns + geometry} +\item{okresy_2011}{správní okresy + census 2011; 77 rows / 176 columns + geometry} +\item{kraje_1950}{kraje + census 1950; 13 rows / 55 columns + geometry} +\item{kraje_1961}{kraje + census 1960; 8 rows / 103 columns + geometry} +\item{kraje_1970}{kraje + census 1970; 8 rows / 144 columns + geometry} +\item{kraje_1980}{kraje + census 1980; 8 rows / 146 columns + geometry} +\item{kraje_1991}{kraje + census 1991; 8 rows / 153 columns + geometry} +\item{kraje_2001}{kraje + census 2001; 14 rows / 172 columns + geometry} +\item{kraje_2011}{kraje + census 2011; 14 rows / 174 columns + geometry} +} + +Credits: +\enumerate{ +\item „Tento výstup vznikl v rámci řešení projektu číslo DF12P01OVV033 Zpřístupnění historických prostorových a statistických dat v prostředí GIS řešeného v rámci programu Aplikovaného výzkumu a vývoje národní a kulturní identity (NAKI), jehož poskytovatel je Ministerstvo kultury České republiky.“ +\item „JÍCHOVÁ, J., SOUKUP, M., NEMEŠKAL, J., OUŘEDNÍČEK, M., POSPÍŠILOVÁ, L., SVOBODA, P., ŠPAČKOVÁ, P. a kol. (2014): Geodatabáze historických statistických a prostorových dat Česka ze Sčítání lidu, domů a bytů 1921−2011. Urbánní a regionální laboratoř, Přírodovědecká fakulta Univerzity Karlovy v Praze, Praha.“ +} +} +\description{ +Function returning historical admin areas of the Czech Republic, together with relevant census data as specified by parameter \strong{era}. +} +\details{ +Of notable interest is the 1930 census, which was the last pre-war - and thus the last one to include Czechoslovak citizens of German ethnicity. + +Due to package size constraints the data are stored externally (and a working internet connection is required to use the package). +} +\examples{ + +\donttest{ +library(sf) + +pre_war <- RCzechia::historie("okresy_1930") + +plot(pre_war["národnost německá"]) + +} + +}