diff --git a/R/katastry.R b/R/katastry.R index 151496d..ab688c5 100644 --- a/R/katastry.R +++ b/R/katastry.R @@ -12,10 +12,11 @@ #' @return `sf` data frame with 142 rows of 4 variables + geometry #' #' \describe{ -#' \item{KOD}{Code of the city part / kod mestske casti} -#' \item{NAZEV}{Name of the city part / nazev mestske casti} -#' \item{KOD_OBEC}{Code of the city} -#' \item{NAZ_OBEC}{Name of the city} +#' \item{KOD}{Code of the cadastral area / kód katastrálního území} +#' \item{NAZEV}{Name of the cadastral area / název katastrálního území} +#' \item{KOD_OBEC}{Code of the municipality} +#' \item{NAZ_OBEC}{Name of the municipality} +#' \item{digi}{boolean indicating completed digitalization} #' } #' #' @source © ČÚZK, 2024 diff --git a/man/katastry.Rd b/man/katastry.Rd index 1c3592a..667c86f 100644 --- a/man/katastry.Rd +++ b/man/katastry.Rd @@ -13,10 +13,11 @@ katastry() \code{sf} data frame with 142 rows of 4 variables + geometry \describe{ -\item{KOD}{Code of the city part / kod mestske casti} -\item{NAZEV}{Name of the city part / nazev mestske casti} -\item{KOD_OBEC}{Code of the city} -\item{NAZ_OBEC}{Name of the city} +\item{KOD}{Code of the cadastral area / kód katastrálního území} +\item{NAZEV}{Name of the cadastral area / název katastrálního území} +\item{KOD_OBEC}{Code of the municipality} +\item{NAZ_OBEC}{Name of the municipality} +\item{digi}{boolean indicating completed digitalization} } } \description{ diff --git a/tests/testthat/test-3-integrace.R b/tests/testthat/test-3-integrace.R index e5764af..0ff23ec 100644 --- a/tests/testthat/test-3-integrace.R +++ b/tests/testthat/test-3-integrace.R @@ -62,6 +62,11 @@ test_that("integrace", { expect_equal(sum(st_area(filter(katastry(), NAZ_OBEC == "Praha"))), st_area(subset(obce_polygony(), NAZ_OBEC == "Praha")), tolerance = 1/1000) + # židovské město je v Praze + expect_true(st_contains(subset(obce_polygony(), NAZ_OBEC == "Praha"), + subset(katastry(), NAZEV == "Josefov"), + sparse = F)[[1]]) + # Kramářova vila je v Praze / obci, orp, okresu i kraji