# install.packages("remotes")
remotes::install_gitlab("ibarraespinosa/ana")
url1 = paste0("http://portal1.snirh.gov.br/ana/",
"rest/services/Esta%C3%A7%C3%B5es_da_",
"Rede_Hidrometeorol%C3%B3gica_Nacional",
"_em_Opera%C3%A7%C3%A3o/MapServer/1")
url2 = paste0("http://portal1.snirh.gov.br/ana/",
"rest/services/Esta%C3%A7%C3%B5es_da_",
"Rede_Hidrometeorol%C3%B3gica_Nacional",
"_em_Opera%C3%A7%C3%A3o/MapServer/4")
esri_features <- get_esri_features(url1)
a <- layer_info()
(geom_type <- a$geometryType)
esri_features <- get_esri_features(url)
simple_features <- esri_to_sf_geom(esri_features, geom_type = geom_type)
Based on https://github.com/yonghah/esri2sf with some changes.
- data.table instead of dplyr.
- Remove all unnecessary code
- remove %>%
- Make it easier
- Make it faster
- Make it stronger
- Never Older
- Add options
https://mixmag.com.br/read/as-10-melhores-m%C3%BAsicas-do-daft-punk-blog