get features.
if (FALSE) { # \dontrun{
# do not run
(geom_type <- layer_info()$geometryType)
# rede
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")
# hidroweb
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/4")
esri_features <- get_esri_features(url2)
simple_features <- esri_to_sf_geom(esri_features, geom_type = geom_type)
} # }