diff --git a/.github/dependabot.yml b/.github/dependabot.yml index 90e05c4..3de2551 100644 --- a/.github/dependabot.yml +++ b/.github/dependabot.yml @@ -9,3 +9,4 @@ updates: directory: "/" # Location of package manifests schedule: interval: "weekly" + diff --git a/.github/workflows/pkgdown-gh-pages-clean.yaml b/.github/workflows/pkgdown-gh-pages-clean.yaml index 0d74115..efb6414 100644 --- a/.github/workflows/pkgdown-gh-pages-clean.yaml +++ b/.github/workflows/pkgdown-gh-pages-clean.yaml @@ -30,4 +30,5 @@ jobs: run: | git config --local user.name "github-actions[bot]" git config --local user.email "41898282+github-actions[bot]@users.noreply.github.com" - Rscript -e 'pkgdown::deploy_to_branch(new_process = FALSE, run_dont_run = TRUE)' \ No newline at end of file + Rscript -e 'pkgdown::deploy_to_branch(new_process = FALSE, run_dont_run = TRUE)' + diff --git a/.github/workflows/roscron-check-standard.yaml b/.github/workflows/roscron-check-standard.yaml index 4796530..48b6bc3 100644 --- a/.github/workflows/roscron-check-standard.yaml +++ b/.github/workflows/roscron-check-standard.yaml @@ -51,3 +51,4 @@ jobs: needs: check - uses: r-lib/actions/check-r-package@v2 + diff --git a/.github/workflows/rostemplate-gh-pages.yaml b/.github/workflows/rostemplate-gh-pages.yaml index bba603d..30c2191 100644 --- a/.github/workflows/rostemplate-gh-pages.yaml +++ b/.github/workflows/rostemplate-gh-pages.yaml @@ -34,3 +34,4 @@ jobs: git config --local user.name "github-actions[bot]" git config --local user.email "41898282+github-actions[bot]@users.noreply.github.com" Rscript -e 'pkgdown::deploy_to_branch(new_process = FALSE, run_dont_run = TRUE)' + diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md new file mode 100644 index 0000000..9f46a02 --- /dev/null +++ b/CONTRIBUTING.md @@ -0,0 +1,46 @@ +# CONTRIBUTING + +## Fixing typos + +Small typos or grammatical errors in documentation may be edited directly using +the GitHub web interface, so long as the changes are made in the *source* file. + +- YES ✔️: you edit a roxygen comment in a `.R` file below `R/`. +- NO ❌: you edit an `.Rd` file below `man/`. + +## Prerequisites + +Before you make a substantial pull request, you should always file an issue and +make sure someone from the team agrees that it's a problem. If you've found a +bug, create an associated issue and illustrate the bug with a minimal +[reprex](https://www.tidyverse.org/help/#reprex). + +## Pull request process + +- We recommend that you create a Git branch for each pull request (PR). +- Look at the `R-CMD-check` build status before. After making changes, run + `devtools::check()` and ensure no new Notes, Warnings or Errors are + appearing. +- We recommend the tidyverse [style guide](http://style.tidyverse.org). We + also use the [styler](https://CRAN.R-project.org/package=styler) package to + apply these styles, but please **don't restyle code that has nothing to do + with your PR**. +- We use [roxygen2](https://cran.r-project.org/package=roxygen2). +- We use [testthat](https://cran.r-project.org/package=testthat). + Contributions with test cases included are easier to accept. +- For user-facing changes, add a bullet to the top of `NEWS.md` below the + current development version header describing the changes made followed by + your GitHub username, and links to relevant issue(s)/PR(s). + +## Prefer to Email? + +Email the person listed as maintainer in the `DESCRIPTION` file of this repo. + +Though note that private discussions over email don't help others - of course +email is totally warranted if it's a sensitive problem of any kind. + +## Thanks for contributing! + +This contributing guide is adapted from the tidyverse contributing guide +available at + diff --git a/NEWS.md b/NEWS.md index facda47..99f21e2 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,10 +1,12 @@ # CatastRoNav (development version) - Improve condition handling. +- Add a `count` parameter that allows to set the maximum number of features to + be returned. # CatastRoNav 0.0.2 -- Make `sf` objects valid with `sf::st_make_valid()`. +- Make \CRANpkg{sf} objects valid with `sf::st_make_valid()`. # CatastRoNav 0.0.1 diff --git a/R/wfs_ad.R b/R/wfs_ad.R index 34415ec..53abb25 100644 --- a/R/wfs_ad.R +++ b/R/wfs_ad.R @@ -7,7 +7,7 @@ #' #' @seealso [sf::st_bbox()] #' -#' @return A `sf` object. +#' @return A \CRANpkg{sf} object. #' @source [SITNA – Catastro de Navarra](https://sitna.navarra.es/geoportal/) #' #' @details @@ -18,7 +18,7 @@ #' [EPSG:25830](https://epsg.io/25830) - ETRS89 / UTM zone 30N. The result is #' provided always in the SRS provided in `srs`. #' -#' When `x` is a `sf` object, the value `srs` is ignored. The query is +#' When `x` is a \CRANpkg{sf} object, the value `srs` is ignored. The query is #' performed using [EPSG:25830](https://epsg.io/25830) (ETRS89 / UTM zone 30N) #' and the spatial object is projected back to the SRS of the initial object. #' @@ -37,7 +37,8 @@ #' } #' #' @seealso [CatastRo::catr_wfs_get_address_bbox()] -catrnav_wfs_get_address_bbox <- function(x, srs, verbose = FALSE) { +catrnav_wfs_get_address_bbox <- function(x, srs, verbose = FALSE, + count = NULL) { # Switch to stored queries stored_query <- "AD:Address" @@ -51,6 +52,7 @@ catrnav_wfs_get_address_bbox <- function(x, srs, verbose = FALSE) { service = "WFS", request = "getfeature", typenames = stored_query, + count = count, # Stored query bbox = bbox_res$bbox, SRSNAME = bbox_res$incrs diff --git a/R/wfs_bu.R b/R/wfs_bu.R index bdd270a..f53e469 100644 --- a/R/wfs_bu.R +++ b/R/wfs_bu.R @@ -8,13 +8,16 @@ #' the bounding box: `c(xmin, ymin, xmax, ymax)` #' - A `sf/sfc` object, as provided by the **sf** package. #' @param srs SRS/CRS to use on the query. See **Details**. -#' #' @param verbose Logical, displays information. Useful for debugging, default #' is `FALSE`. +#' @param count integer, indicating the maximum number of features to return. +#' The default value `NULL` does not pass this parameter to the query, +#' and the maximum number of features would be determined by the default value +#' of the API service (5,000 in this case). #' #' @seealso [sf::st_bbox()] #' -#' @return A `sf` object. +#' @return A \CRANpkg{sf} object. #' @source [SITNA – Catastro de Navarra](https://sitna.navarra.es/geoportal/) #' #' @details @@ -25,7 +28,7 @@ #' [EPSG:25830](https://epsg.io/25830) - ETRS89 / UTM zone 30N. The result is #' provided always in the SRS provided in `srs`. #' -#' When `x` is a `sf` object, the value `srs` is ignored. The query is +#' When `x` is a \CRANpkg{sf} object, the value `srs` is ignored. The query is #' performed using [EPSG:25830](https://epsg.io/25830) (ETRS89 / UTM zone 30N) #' and the spatial object is projected back to the SRS of the initial object. #' @@ -44,7 +47,8 @@ #' } #' #' @seealso [CatastRo::catr_wfs_get_buildings_bbox()] -catrnav_wfs_get_buildings_bbox <- function(x, srs, verbose = FALSE) { +catrnav_wfs_get_buildings_bbox <- function(x, srs, verbose = FALSE, + count = NULL) { # Switch to stored queries stored_query <- "BU:Building" @@ -58,6 +62,7 @@ catrnav_wfs_get_buildings_bbox <- function(x, srs, verbose = FALSE) { service = "WFS", request = "getfeature", typenames = stored_query, + count = count, # Stored query bbox = bbox_res$bbox, SRSNAME = bbox_res$incrs diff --git a/R/wfs_cp.R b/R/wfs_cp.R index 2782aa2..e247d3f 100644 --- a/R/wfs_cp.R +++ b/R/wfs_cp.R @@ -7,7 +7,7 @@ #' #' @seealso [sf::st_bbox()] #' -#' @return A `sf` object. +#' @return A \CRANpkg{sf} object. #' @source [SITNA – Catastro de Navarra](https://sitna.navarra.es/geoportal/) #' #' @details @@ -18,7 +18,7 @@ #' [EPSG:25830](https://epsg.io/25830) - ETRS89 / UTM zone 30N. The result is #' provided always in the SRS provided in `srs`. #' -#' When `x` is a `sf` object, the value `srs` is ignored. The query is +#' When `x` is a \CRANpkg{sf} object, the value `srs` is ignored. The query is #' performed using [EPSG:25830](https://epsg.io/25830) (ETRS89 / UTM zone 30N) #' and the spatial object is projected back to the SRS of the initial object. #' @@ -37,7 +37,8 @@ #' } #' #' @seealso [CatastRo::catr_wfs_get_parcels_bbox()] -catrnav_wfs_get_parcels_bbox <- function(x, srs, verbose = FALSE) { +catrnav_wfs_get_parcels_bbox <- function(x, srs, verbose = FALSE, + count = NULL) { # Switch to stored queries stored_query <- "CP:CadastralParcel" @@ -51,6 +52,7 @@ catrnav_wfs_get_parcels_bbox <- function(x, srs, verbose = FALSE) { service = "WFS", request = "getfeature", typenames = stored_query, + count = count, # Stored query bbox = bbox_res$bbox, SRSNAME = bbox_res$incrs diff --git a/README.Rmd b/README.Rmd index ec7f8d6..ae72954 100644 --- a/README.Rmd +++ b/README.Rmd @@ -25,7 +25,7 @@ library(CatastRoNav) [![rOS-badge](https://ropenspain.github.io/rostemplate/reference/figures/ropenspain-badge.svg)](https://ropenspain.es/) [![CatastRoNav status badge](https://ropenspain.r-universe.dev/badges/CatastRoNav)](https://ropenspain.r-universe.dev/CatastRoNav) -[![R-CMD-check](https://github.com/rOpenSpain/CatastRoNav/workflows/R-CMD-check/badge.svg)](https://github.com/rOpenSpain/CatastRoNav/actions?query=workflow%3AR-CMD-check) +[![R-CMD-check](https://github.com/rOpenSpain/CatastRoNav/actions/workflows/roscron-check-standard.yaml/badge.svg)](https://github.com/rOpenSpain/CatastRoNav/actions/workflows/roscron-check-standard.yaml) [![codecov](https://codecov.io/gh/rOpenSpain/CatastroNav/branch/main/graph/badge.svg)](https://app.codecov.io/gh/rOpenSpain/CatastroNav) [![DOI](https://img.shields.io/badge/DOI-10.5281/zenodo.6366407-blue)](https://doi.org/10.5281/zenodo.6366407) [![Project-Status:Active](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active) @@ -62,7 +62,7 @@ install_github("rOpenSpain/CatastRoNav", dependencies = TRUE) ## Usage The WFS service allows to download vector objects of specific cadastral -elements. The result is provided as `sf` objects (See **sf** package). +elements. The result is provided as \CRANpkg{sf} objects (See **sf** package). ```{r wfs} library(CatastRoNav) @@ -98,7 +98,7 @@ similar functionalities for Spain excluding the Basque Country and Navarre. ## Terms and conditions of use Data provided by the Government of Navarre under [Creative Commons Attribution -(CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.en_EN). The +(CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.en_en). The service is provided "as is", and without guarantee of any kind, implicit or explicit. diff --git a/README.md b/README.md index 56afd15..a7a34b5 100644 --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ [![rOS-badge](https://ropenspain.github.io/rostemplate/reference/figures/ropenspain-badge.svg)](https://ropenspain.es/) [![CatastRoNav status badge](https://ropenspain.r-universe.dev/badges/CatastRoNav)](https://ropenspain.r-universe.dev/CatastRoNav) -[![R-CMD-check](https://github.com/rOpenSpain/CatastRoNav/workflows/R-CMD-check/badge.svg)](https://github.com/rOpenSpain/CatastRoNav/actions?query=workflow%3AR-CMD-check) +[![R-CMD-check](https://github.com/rOpenSpain/CatastRoNav/actions/workflows/roscron-check-standard.yaml/badge.svg)](https://github.com/rOpenSpain/CatastRoNav/actions/workflows/roscron-check-standard.yaml) [![codecov](https://codecov.io/gh/rOpenSpain/CatastroNav/branch/main/graph/badge.svg)](https://app.codecov.io/gh/rOpenSpain/CatastroNav) [![DOI](https://img.shields.io/badge/DOI-10.5281/zenodo.6366407-blue)](https://doi.org/10.5281/zenodo.6366407) [![Project-Status:Active](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active) @@ -47,7 +47,7 @@ install_github("rOpenSpain/CatastRoNav", dependencies = TRUE) ## Usage The WFS service allows to download vector objects of specific cadastral -elements. The result is provided as `sf` objects (See **sf** package). +elements. The result is provided as objects (See **sf** package). ``` r library(CatastRoNav) @@ -96,7 +96,7 @@ and Navarre. Data provided by the Government of Navarre under [Creative Commons Attribution (CC BY -4.0)](https://creativecommons.org/licenses/by/4.0/deed.en_EN). The +4.0)](https://creativecommons.org/licenses/by/4.0/deed.en_en). The service is provided “as is”, and without guarantee of any kind, implicit or explicit. diff --git a/codemeta.json b/codemeta.json index 37e87f6..eb961ab 100644 --- a/codemeta.json +++ b/codemeta.json @@ -14,7 +14,7 @@ "name": "R", "url": "https://r-project.org" }, - "runtimePlatform": "R version 4.3.1 (2023-06-16 ucrt)", + "runtimePlatform": "R version 4.3.2 (2023-10-31 ucrt)", "author": [ { "@type": "Person", @@ -178,7 +178,7 @@ }, "SystemRequirements": null }, - "fileSize": "853.79KB", + "fileSize": "890.901KB", "citation": [ { "@type": "SoftwareSourceCode", @@ -199,7 +199,7 @@ ], "releaseNotes": "https://github.com/rOpenSpain/CatastRoNav/blob/master/NEWS.md", "readme": "https://github.com/rOpenSpain/CatastRoNav/blob/main/README.md", - "contIntegration": ["https://github.com/rOpenSpain/CatastRoNav/actions?query=workflow%3AR-CMD-check", "https://app.codecov.io/gh/rOpenSpain/CatastroNav"], + "contIntegration": ["https://github.com/rOpenSpain/CatastRoNav/actions/workflows/roscron-check-standard.yaml", "https://app.codecov.io/gh/rOpenSpain/CatastroNav"], "developmentStatus": "https://www.repostatus.org/#active", "keywords": ["r", "maps", "spain", "navarra", "catastro", "r-package", "r-stats", "ropenspain"] } diff --git a/inst/WORDLIST b/inst/WORDLIST index 7483c42..9ff7ca9 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -1,14 +1,10 @@ -CMD CRS Cadastral Cadastre -CatastRo -CatastRoNav’ Catastro DOI EPSG ETRS -Hernangomez Navarra ORCID Olite @@ -19,9 +15,7 @@ SRS WFS cadastral cadastre -codecov de mapSpain organisations pre -rOS diff --git a/inst/schemaorg.json b/inst/schemaorg.json index e27a223..b28274c 100644 --- a/inst/schemaorg.json +++ b/inst/schemaorg.json @@ -19,7 +19,7 @@ "name": "R", "url": "https://r-project.org" }, - "runtimePlatform": "R version 4.3.1 (2023-06-16 ucrt)", + "runtimePlatform": "R version 4.3.2 (2023-10-31 ucrt)", "version": "0.0.2.9000" }, { diff --git a/man/catrnav_wfs_get_address_bbox.Rd b/man/catrnav_wfs_get_address_bbox.Rd index 981d87b..0425fce 100644 --- a/man/catrnav_wfs_get_address_bbox.Rd +++ b/man/catrnav_wfs_get_address_bbox.Rd @@ -7,7 +7,7 @@ \href{https://sitna.navarra.es/geoportal/}{SITNA – Catastro de Navarra} } \usage{ -catrnav_wfs_get_address_bbox(x, srs, verbose = FALSE) +catrnav_wfs_get_address_bbox(x, srs, verbose = FALSE, count = NULL) } \arguments{ \item{x}{See \strong{Details}. It could be: @@ -21,9 +21,14 @@ the bounding box: \code{c(xmin, ymin, xmax, ymax)} \item{verbose}{Logical, displays information. Useful for debugging, default is \code{FALSE}.} + +\item{count}{integer, indicating the maximum number of features to return. +The default value \code{NULL} does not pass this parameter to the query, +and the maximum number of features would be determined by the default value +of the API service (5,000 in this case).} } \value{ -A \code{sf} object. +A \CRANpkg{sf} object. } \description{ Get the spatial data of addresses by bounding box. @@ -35,7 +40,7 @@ reference system (4326, 4258), the function queries the bounding box on \href{https://epsg.io/25830}{EPSG:25830} - ETRS89 / UTM zone 30N. The result is provided always in the SRS provided in \code{srs}. -When \code{x} is a \code{sf} object, the value \code{srs} is ignored. The query is +When \code{x} is a \CRANpkg{sf} object, the value \code{srs} is ignored. The query is performed using \href{https://epsg.io/25830}{EPSG:25830} (ETRS89 / UTM zone 30N) and the spatial object is projected back to the SRS of the initial object. } diff --git a/man/catrnav_wfs_get_buildings_bbox.Rd b/man/catrnav_wfs_get_buildings_bbox.Rd index dd45259..07315c9 100644 --- a/man/catrnav_wfs_get_buildings_bbox.Rd +++ b/man/catrnav_wfs_get_buildings_bbox.Rd @@ -7,7 +7,7 @@ \href{https://sitna.navarra.es/geoportal/}{SITNA – Catastro de Navarra} } \usage{ -catrnav_wfs_get_buildings_bbox(x, srs, verbose = FALSE) +catrnav_wfs_get_buildings_bbox(x, srs, verbose = FALSE, count = NULL) } \arguments{ \item{x}{See \strong{Details}. It could be: @@ -21,9 +21,14 @@ the bounding box: \code{c(xmin, ymin, xmax, ymax)} \item{verbose}{Logical, displays information. Useful for debugging, default is \code{FALSE}.} + +\item{count}{integer, indicating the maximum number of features to return. +The default value \code{NULL} does not pass this parameter to the query, +and the maximum number of features would be determined by the default value +of the API service (5,000 in this case).} } \value{ -A \code{sf} object. +A \CRANpkg{sf} object. } \description{ Get the spatial data of buildings by bounding box. @@ -35,7 +40,7 @@ reference system (4326, 4258), the function queries the bounding box on \href{https://epsg.io/25830}{EPSG:25830} - ETRS89 / UTM zone 30N. The result is provided always in the SRS provided in \code{srs}. -When \code{x} is a \code{sf} object, the value \code{srs} is ignored. The query is +When \code{x} is a \CRANpkg{sf} object, the value \code{srs} is ignored. The query is performed using \href{https://epsg.io/25830}{EPSG:25830} (ETRS89 / UTM zone 30N) and the spatial object is projected back to the SRS of the initial object. } diff --git a/man/catrnav_wfs_get_parcels_bbox.Rd b/man/catrnav_wfs_get_parcels_bbox.Rd index 4a9d5b8..380542d 100644 --- a/man/catrnav_wfs_get_parcels_bbox.Rd +++ b/man/catrnav_wfs_get_parcels_bbox.Rd @@ -7,7 +7,7 @@ \href{https://sitna.navarra.es/geoportal/}{SITNA – Catastro de Navarra} } \usage{ -catrnav_wfs_get_parcels_bbox(x, srs, verbose = FALSE) +catrnav_wfs_get_parcels_bbox(x, srs, verbose = FALSE, count = NULL) } \arguments{ \item{x}{See \strong{Details}. It could be: @@ -21,9 +21,14 @@ the bounding box: \code{c(xmin, ymin, xmax, ymax)} \item{verbose}{Logical, displays information. Useful for debugging, default is \code{FALSE}.} + +\item{count}{integer, indicating the maximum number of features to return. +The default value \code{NULL} does not pass this parameter to the query, +and the maximum number of features would be determined by the default value +of the API service (5,000 in this case).} } \value{ -A \code{sf} object. +A \CRANpkg{sf} object. } \description{ Get the spatial data of cadastral parcels by bounding box. @@ -35,7 +40,7 @@ reference system (4326, 4258), the function queries the bounding box on \href{https://epsg.io/25830}{EPSG:25830} - ETRS89 / UTM zone 30N. The result is provided always in the SRS provided in \code{srs}. -When \code{x} is a \code{sf} object, the value \code{srs} is ignored. The query is +When \code{x} is a \CRANpkg{sf} object, the value \code{srs} is ignored. The query is performed using \href{https://epsg.io/25830}{EPSG:25830} (ETRS89 / UTM zone 30N) and the spatial object is projected back to the SRS of the initial object. } diff --git a/man/figures/README-wfs-1.png b/man/figures/README-wfs-1.png index 0b95755..a07b320 100644 Binary files a/man/figures/README-wfs-1.png and b/man/figures/README-wfs-1.png differ diff --git a/pkgdown/_pkgdown.yml b/pkgdown/_pkgdown.yml index 969b665..1f226cb 100644 --- a/pkgdown/_pkgdown.yml +++ b/pkgdown/_pkgdown.yml @@ -6,3 +6,4 @@ template: authors: Diego Hernangómez: href: 'https://dieghernan.github.io/' + diff --git a/tests/testthat/test-catrnav_wfs_ad.R b/tests/testthat/test-catrnav_wfs_ad.R index 2f58f20..ca677d2 100644 --- a/tests/testthat/test-catrnav_wfs_ad.R +++ b/tests/testthat/test-catrnav_wfs_ad.R @@ -19,14 +19,17 @@ test_that("BBOX Check projections", { 1071171, 4748024 ), srs = 25829, - verbose = TRUE + verbose = TRUE, + count = 5 )) obj <- catrnav_wfs_get_address_bbox(c(1071071, 4747924, 1071171, 4748024), - srs = 25829 + srs = 25829, + count = 10 ) expect_true(sf::st_crs(obj) == sf::st_crs(25829)) + expect_true(nrow(obj) == 10) # test conversion diff --git a/tests/testthat/test-catrnav_wfs_bu.R b/tests/testthat/test-catrnav_wfs_bu.R index 0d6bc9c..256bb48 100644 --- a/tests/testthat/test-catrnav_wfs_bu.R +++ b/tests/testthat/test-catrnav_wfs_bu.R @@ -27,10 +27,12 @@ test_that("BBOX Check projections", { )) obj <- catrnav_wfs_get_buildings_bbox(c(1071071, 4747924, 1071171, 4748024), - srs = 25829 + srs = 25829, + count = 10 ) expect_true(sf::st_crs(obj) == sf::st_crs(25829)) + expect_true(nrow(obj) == 10) # test conversion diff --git a/tests/testthat/test-catrnav_wfs_cp.R b/tests/testthat/test-catrnav_wfs_cp.R index c2bb5f2..57fc015 100644 --- a/tests/testthat/test-catrnav_wfs_cp.R +++ b/tests/testthat/test-catrnav_wfs_cp.R @@ -23,10 +23,12 @@ test_that("BBOX Check projections", { )) obj <- catrnav_wfs_get_parcels_bbox(c(1071071, 4747924, 1071171, 4748024), - srs = 25829 + srs = 25829, + count = 10 ) expect_true(sf::st_crs(obj) == sf::st_crs(25829)) + expect_true(nrow(obj) == 10) # test conversion diff --git a/vignettes/CatastRoNav.Rmd b/vignettes/CatastRoNav.Rmd index d63ba02..66dd40b 100644 --- a/vignettes/CatastRoNav.Rmd +++ b/vignettes/CatastRoNav.Rmd @@ -1,6 +1,7 @@ --- title: "Get started" output: rmarkdown::html_vignette +date: "2023-11-28" vignette: > %\VignetteIndexEntry{Get started} %\VignetteEngine{knitr::rmarkdown} @@ -27,7 +28,7 @@ cadastral parcels. > spatial information across Europe and assist in policy-making across > boundaries. > -> *From * +> *From * The implementation of the INSPIRE directive on the Cadastre of Navarre allows to retrieve spatial objects from the database of the cadastre: @@ -88,14 +89,14 @@ pamp <- esp_get_capimun(munic = "^Pamplona") pamp_buff <- pamp %>% st_transform(25830) %>% - st_buffer(750) + st_buffer(1250) ``` Next step consists on extracting the buildings using the WFS service: ```r -pamp_bu <- catrnav_wfs_get_buildings_bbox(pamp_buff) +pamp_bu <- catrnav_wfs_get_buildings_bbox(pamp_buff, count = 10000) ``` Next step for creating the visualization is to crop the buildings to the buffer diff --git a/vignettes/CatastRoNav.Rmd.orig b/vignettes/CatastRoNav.Rmd.orig index cb79a56..102a325 100644 --- a/vignettes/CatastRoNav.Rmd.orig +++ b/vignettes/CatastRoNav.Rmd.orig @@ -1,6 +1,7 @@ --- title: "Get started" output: rmarkdown::html_vignette +date: "`r Sys.Date()`" vignette: > %\VignetteIndexEntry{Get started} %\VignetteEngine{knitr::rmarkdown} @@ -39,7 +40,7 @@ cadastral parcels. > spatial information across Europe and assist in policy-making across > boundaries. > -> *From * +> *From * The implementation of the INSPIRE directive on the Cadastre of Navarre allows to retrieve spatial objects from the database of the cadastre: @@ -95,7 +96,7 @@ pamp <- esp_get_capimun(munic = "^Pamplona") pamp_buff <- pamp %>% st_transform(25830) %>% - st_buffer(750) + st_buffer(1250) ``` @@ -103,7 +104,7 @@ Next step consists on extracting the buildings using the WFS service: ```{r } -pamp_bu <- catrnav_wfs_get_buildings_bbox(pamp_buff) +pamp_bu <- catrnav_wfs_get_buildings_bbox(pamp_buff, count = 10000) ``` diff --git a/vignettes/dataviz-1.png b/vignettes/dataviz-1.png index 62c9271..cfd4149 100644 Binary files a/vignettes/dataviz-1.png and b/vignettes/dataviz-1.png differ diff --git a/vignettes/minimal-1.png b/vignettes/minimal-1.png index d91d627..9f2d88a 100644 Binary files a/vignettes/minimal-1.png and b/vignettes/minimal-1.png differ