diff --git a/R/katastry.R b/R/katastry.R index df764dc..5aef996 100644 --- a/R/katastry.R +++ b/R/katastry.R @@ -32,8 +32,13 @@ #' #' smallest <- which.min(sf::st_area(praha)) #' +#' plot(st_geometry(RCzechia::obce_polygony() |> +#' subset(NAZ_OBEC == "Praha"))) +#' +#' plot(st_geometry(RCzechia::reky("Praha")), col = "navyblue", add = TRUE) +#' #' # it is Josefov - the former Jewish Ghetto -#' mapview::mapview(praha[smallest, ]) +#' plot(st_geometry(praha[smallest, ]), col = "red", add = TRUE) #' #' } #' diff --git a/man/katastry.Rd b/man/katastry.Rd index 8929b21..c7aa572 100644 --- a/man/katastry.Rd +++ b/man/katastry.Rd @@ -41,8 +41,13 @@ praha <- RCzechia::katastry() |> smallest <- which.min(sf::st_area(praha)) +plot(st_geometry(RCzechia::obce_polygony() |> + subset(NAZ_OBEC == "Praha"))) + +plot(st_geometry(RCzechia::reky("Praha")), col = "navyblue", add = TRUE) + # it is Josefov - the former Jewish Ghetto -mapview::mapview(praha[smallest, ]) +plot(st_geometry(praha[smallest, ]), col = "red", add = TRUE) }