buggy documentation of katastry() (#98)

jlacko · Jul 8, 2024 · a8a022e · a8a022e
1 parent 3c528e4
commit a8a022e
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git 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 <https://vdp.cuzk.cz/>

diff --git a/man/katastry.Rd b/man/katastry.Rd
diff --git 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