From 38be6e42960e2a80a7e227c11e1887917440ec5f Mon Sep 17 00:00:00 2001 From: Jindra Lacko Date: Sun, 29 Oct 2023 17:39:29 +0100 Subject: [PATCH] 40 historical shapefiles (#83) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * link to raw RUIAN for admin data / resolves #77 * download links for zip codes & KFME grid / relates #77 * pkgdown - prepare for future deployment * cleaner silnice * sidestep the pesky mbcsToSbcs failure * that pesky unicode! * a more colorful plot of kraje * align ozymandias and dockerfile * + přfuk confirmation * internals of the world, unite! * helper functions created * update docs for new internals * historie in principle working / relates #40 * resolve CI fails on R-devel * yet another shot at a clean workflow run * unicode gets no respect * shorter title for clarity * update docs of history() * historie in tests / relates #40 * resolve vignette warning * date for release 1.12.0 set to 2023-10-29 * resolve winbuilder issues * resolve codecov issues * less aggressive testing of envir vars --- R/RCzechia.R | 4 ++++ R/historie.R | 8 ++++---- R/lesy.R | 2 +- R/vyskopis.R | 2 +- man/RCzechia-package.Rd | 4 ++++ man/historie.Rd | 8 ++++---- man/lesy.Rd | 2 +- man/vyskopis.Rd | 2 +- tests/testthat/test-1-historie.R | 4 ++-- tests/testthat/test-2-code-internal.R | 20 ++++++++++++++++++++ 10 files changed, 42 insertions(+), 14 deletions(-) diff --git a/R/RCzechia.R b/R/RCzechia.R index 3eb5beb..c9ac52a 100644 --- a/R/RCzechia.R +++ b/R/RCzechia.R @@ -84,6 +84,10 @@ #' \item *geomorfo* - geomorphological divisions #' #' source: [CENIA / INSPIRE](https://www.arcgis.com/home/item.html?id=25813686a8564b0bbcdc951a5573cfa4), high res object: <1 MB, no low res version +#' \item *historie* - historical admin areas and census records, download size ~ 100 KB to 3.5 MB depending on object +#' +#' source: [URRlab](https://www.historickygis.cz/) +#' #' } #' #' @section Utility functions: diff --git a/R/historie.R b/R/historie.R index 33386b6..c49da1e 100644 --- a/R/historie.R +++ b/R/historie.R @@ -2,7 +2,7 @@ #' #' Function returning historical admin areas of the Czech Republic, together with relevant census data as specified by parameter **era**. #' -#' The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at , or the original journal article at . +#' The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at , or the original journal article at \doi{https://doi.org/10.14712/23361980.2015.93}. #' #' Of notable interest is the 1930 census, which was the last before WWII - and thus the last one to include Czechoslovak citizens of German ethnicity. #' @@ -16,8 +16,8 @@ #' \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_1947}{politické okresy + census 1947; 163 rows / 68 columns + geometry} +#' \item{okresy_1950}{správní okresy + census 1950; 182 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} @@ -35,7 +35,7 @@ #' #' 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.“ +#' 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 #' diff --git a/R/lesy.R b/R/lesy.R index 2c1b474..28c0b62 100644 --- a/R/lesy.R +++ b/R/lesy.R @@ -7,7 +7,7 @@ #' #' @return `sf` data frame with 2.366 rows of geometry variable only #' -#' @source © ArcČR, ARCDATA PRAHA, ZÚ, ČSÚ, 2016 +#' @source © ArcČR, ARCDATA PRAHA, ZÚ, ČSÚ, 2016 #' #' @export lesy <- function() { diff --git a/R/vyskopis.R b/R/vyskopis.R index 3ac2296..571795c 100644 --- a/R/vyskopis.R +++ b/R/vyskopis.R @@ -18,7 +18,7 @@ #' #' @return `terra` package SpatRaster #' -#' @source Copernicus Land Monitoring service, with funding by the European Union. +#' @source Copernicus Land Monitoring service, with funding by the European Union. #' #' @examples #' \donttest{ diff --git a/man/RCzechia-package.Rd b/man/RCzechia-package.Rd index 4e72743..e6dedb8 100644 --- a/man/RCzechia-package.Rd +++ b/man/RCzechia-package.Rd @@ -91,6 +91,10 @@ source: \href{https://land.copernicus.eu/imagery-in-situ/eu-dem}{Copernicus EU} \item \emph{geomorfo} - geomorphological divisions source: \href{https://www.arcgis.com/home/item.html?id=25813686a8564b0bbcdc951a5573cfa4}{CENIA / INSPIRE}, high res object: <1 MB, no low res version +\item \emph{historie} - historical admin areas and census records, download size ~ 100 KB to 3.5 MB depending on object + +source: \href{https://www.historickygis.cz/}{URRlab} + } } diff --git a/man/historie.Rd b/man/historie.Rd index 14725d3..12cb3e8 100644 --- a/man/historie.Rd +++ b/man/historie.Rd @@ -18,8 +18,8 @@ historie(era) \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_1947}{politické okresy + census 1947; 163 rows / 68 columns + geometry} +\item{okresy_1950}{správní okresy + census 1950; 182 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} @@ -38,14 +38,14 @@ historie(era) 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.“ +\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{ -The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at \url{https://cuni.maps.arcgis.com/home/item.html?id=c2f19cd1146747a9a8daf5b900e7747b}, or the original journal article at \url{https://doi.org/10.14712/23361980.2015.93}. +The census data structure is too complex to fully list here; most of the fields are self documenting (for Czech speakers) - and when in doubt please consult the original metadata at \url{https://cuni.maps.arcgis.com/home/item.html?id=c2f19cd1146747a9a8daf5b900e7747b}, or the original journal article at \doi{https://doi.org/10.14712/23361980.2015.93}. Of notable interest is the 1930 census, which was the last before WWII - and thus the last one to include Czechoslovak citizens of German ethnicity. diff --git a/man/lesy.Rd b/man/lesy.Rd index 35041b5..153fd2f 100644 --- a/man/lesy.Rd +++ b/man/lesy.Rd @@ -4,7 +4,7 @@ \alias{lesy} \title{Woodland Areas} \source{ -© ArcČR, ARCDATA PRAHA, ZÚ, ČSÚ, 2016 \url{https://www.arcdata.cz/produkty/geograficka-data/arccr-4} +© ArcČR, ARCDATA PRAHA, ZÚ, ČSÚ, 2016 \url{https://www.arcdata.cz/cs-cz/produkty/data/arccr?rsource=https\%3A\%2F\%2Fwww.arcdata.cz\%2Fprodukty\%2Fgeograficka-data\%2Farccr-4} } \usage{ lesy() diff --git a/man/vyskopis.Rd b/man/vyskopis.Rd index 5695c81..c4a83a8 100644 --- a/man/vyskopis.Rd +++ b/man/vyskopis.Rd @@ -4,7 +4,7 @@ \alias{vyskopis} \title{Vyskopis} \source{ -Copernicus Land Monitoring service, with funding by the European Union. \url{https://land.copernicus.eu/imagery-in-situ/eu-dem} +Copernicus Land Monitoring service, with funding by the European Union. \url{https://land.copernicus.eu/en/products/products-that-are-no-longer-disseminated-on-the-clms-website} } \usage{ vyskopis(format = "rayshaded", cropped = TRUE) diff --git a/tests/testthat/test-1-historie.R b/tests/testthat/test-1-historie.R index 8f01da2..3c223b6 100644 --- a/tests/testthat/test-1-historie.R +++ b/tests/testthat/test-1-historie.R @@ -72,8 +72,8 @@ test_that("historie platí", { test_that("chyby zadání", { - expect_error(geomorfo("bflm")) # neznámá úroveň - expect_error(geomorfo()) # povinný argument bez defaultu + expect_error(historie("bflm")) # neznámá úroveň + expect_error(historie()) # povinný argument bez defaultu }) diff --git a/tests/testthat/test-2-code-internal.R b/tests/testthat/test-2-code-internal.R index efd28e4..970f7e5 100644 --- a/tests/testthat/test-2-code-internal.R +++ b/tests/testthat/test-2-code-internal.R @@ -39,3 +39,23 @@ test_that("očekávané chyby", { }) +test_that("envir variable", { + + skip_on_cran() + + envir_backup <- Sys.getenv("RCZECHIA_HOME") # uložit systémovou hodnotu do zálohy + + expect_true(set_home((tempdir()))) # nastavení na tempdir projde + + expect_warning(set_home("bflm"), regexp = "path") # neexistiující cesta + + expect_true(set_home((tempdir()))) # nastavení na tempdir projde + + expect_true(unset_home()) # vysazení projde + + if(envir_backup != "") Sys.setenv("RCZECHIA_HOME" = envir_backup) # obnovit hodnotu ze zálohy, pokud dává smysl + +}) + + +