inbo / inbospatial

🍁 Collection of useful R functions for spatial data
https://inbo.github.io/inbospatial
Other
5 stars 1 forks source link

get_feature_wfs() error with "https://www.dov.vlaanderen.be/geoserver/wfs" #3

Closed florisvdh closed 1 year ago

florisvdh commented 1 year ago
library(inbospatial)

get_feature_wfs("https://www.dov.vlaanderen.be/geoserver/wfs",
                layername = "gw_vergunningen:huidige_verg",
                crs = "EPSG:31370")
#> Error: No automatic parser available for application/gml+xml.

Created on 2023-01-18 with reprex v2.0.2

Session info ``` r sessioninfo::session_info() #> ─ Session info ─────────────────────────────────────────────────────────────── #> setting value #> version R version 4.2.2 Patched (2022-11-10 r83330) #> os Linux Mint 21.1 #> system x86_64, linux-gnu #> ui X11 #> language nl_BE:nl #> collate nl_BE.UTF-8 #> ctype nl_BE.UTF-8 #> tz Europe/Brussels #> date 2023-01-18 #> pandoc 2.19.2 @ /usr/lib/rstudio/resources/app/bin/quarto/bin/tools/ (via rmarkdown) #> #> ─ Packages ─────────────────────────────────────────────────────────────────── #> package * version date (UTC) lib source #> assertthat 0.2.1 2019-03-21 [3] CRAN (R 4.0.1) #> class 7.3-20 2022-01-13 [4] CRAN (R 4.2.0) #> classInt 0.4-8 2022-09-29 [3] CRAN (R 4.2.1) #> cli 3.6.0 2023-01-09 [3] CRAN (R 4.2.2) #> codetools 0.2-18 2020-11-04 [4] CRAN (R 4.2.0) #> curl 4.3.3 2022-10-06 [3] CRAN (R 4.2.1) #> DBI 1.1.3 2022-06-18 [3] CRAN (R 4.2.1) #> digest 0.6.31 2022-12-11 [1] RSPM (R 4.2.0) #> dplyr 1.0.10 2022-09-01 [3] CRAN (R 4.2.1) #> e1071 1.7-12 2022-10-24 [3] CRAN (R 4.2.1) #> ellipsis 0.3.2 2021-04-29 [3] CRAN (R 4.1.1) #> evaluate 0.19 2022-12-13 [1] RSPM (R 4.2.0) #> fansi 1.0.3 2022-03-24 [3] CRAN (R 4.2.0) #> fastmap 1.1.0 2021-01-25 [3] CRAN (R 4.2.0) #> fs 1.5.2 2021-12-08 [3] CRAN (R 4.1.2) #> generics 0.1.3 2022-07-05 [3] CRAN (R 4.2.1) #> glue 1.6.2 2022-02-24 [3] CRAN (R 4.2.0) #> highr 0.9 2021-04-16 [3] CRAN (R 4.1.1) #> hms 1.1.2 2022-08-19 [3] CRAN (R 4.2.1) #> htmltools 0.5.4 2022-12-07 [1] RSPM (R 4.2.0) #> httr 1.4.4 2022-08-17 [3] CRAN (R 4.2.1) #> inbospatial * 0.0.1 2023-01-18 [1] Github (inbo/inbospatial@d4b98aa) #> KernSmooth 2.23-20 2021-05-03 [4] CRAN (R 4.2.0) #> knitr 1.41 2022-11-18 [1] RSPM (R 4.2.0) #> lifecycle 1.0.3 2022-10-07 [3] CRAN (R 4.2.1) #> magrittr 2.0.3 2022-03-30 [3] CRAN (R 4.2.0) #> pillar 1.8.1 2022-08-19 [3] CRAN (R 4.2.1) #> pkgconfig 2.0.3 2019-09-22 [3] CRAN (R 4.0.1) #> proxy 0.4-27 2022-06-09 [3] CRAN (R 4.2.0) #> R6 2.5.1 2021-08-19 [3] CRAN (R 4.2.0) #> Rcpp 1.0.9 2022-07-08 [3] CRAN (R 4.2.1) #> readr 2.1.3 2022-10-01 [3] CRAN (R 4.2.1) #> reprex 2.0.2 2022-08-17 [3] CRAN (R 4.2.1) #> rlang 1.0.6 2022-09-24 [3] CRAN (R 4.2.1) #> rmarkdown 2.19 2022-12-15 [1] RSPM (R 4.2.0) #> rstudioapi 0.14 2022-08-22 [3] CRAN (R 4.2.1) #> sessioninfo 1.2.2 2021-12-06 [3] CRAN (R 4.2.0) #> sf 1.0-9 2022-11-08 [1] CRAN (R 4.2.2) #> stringi 1.7.8 2022-07-11 [3] CRAN (R 4.2.1) #> stringr 1.5.0 2022-12-02 [1] RSPM (R 4.2.0) #> terra 1.6-47 2022-12-02 [1] CRAN (R 4.2.2) #> tibble 3.1.8 2022-07-22 [3] CRAN (R 4.2.2) #> tidyselect 1.2.0 2022-10-10 [3] CRAN (R 4.2.1) #> tzdb 0.3.0 2022-03-28 [3] CRAN (R 4.2.0) #> units 0.8-1 2022-12-10 [1] RSPM (R 4.2.0) #> utf8 1.2.2 2021-07-24 [3] CRAN (R 4.2.0) #> vctrs 0.5.1 2022-11-16 [1] RSPM (R 4.2.0) #> withr 2.5.0 2022-03-03 [3] CRAN (R 4.2.0) #> xfun 0.35 2022-11-16 [1] RSPM (R 4.2.0) #> xml2 1.3.3 2021-11-30 [3] CRAN (R 4.2.0) #> yaml 2.3.6 2022-10-18 [3] CRAN (R 4.2.1) #> #> [1] /home/floris/lib/R/library #> [2] /usr/local/lib/R/site-library #> [3] /usr/lib/R/site-library #> [4] /usr/lib/R/library #> #> ────────────────────────────────────────────────────────────────────────────── ```

This works though:

> get_feature_wfs("https://www.dov.vlaanderen.be/geoserver/wfs",
+                 layername = "gw_vergunningen:huidige_verg",
+                 crs = "EPSG:31370",
+                 result_type = "hits")
[1] "27786"

> httr::parse_url("https://www.dov.vlaanderen.be/geoserver/wfs") %>%
+     purrr::list_merge(query = list(service = "wfs",
+                                    request = "GetFeature",
+                                    typeName = "gw_vergunningen:huidige_verg")) %>%
+     httr::build_url() %>%
+     read_sf() %>% 
+     nrow()
[1] 10000
hansvancalster commented 1 year ago

Should be fixed when #1 is merged. You can try it by installing from the v0.0.2 branch.