update function to load country and region even with accents

GEO-BON · Mar 14, 2024 · 64c67af · 64c67af
1 parent 336e102
commit 64c67af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/SHI/scp_SHI_02_GetAOH.R b/scripts/SHI/scp_SHI_02_GetAOH.R
@@ -28,7 +28,7 @@ get_country<-function(country){
 }
 
 get_state<-function(country,region){
-  resp <- req_perform( request(paste0("https://geoio.biodiversite-quebec.ca/state_geojson/?state_name=",region,"&country_name=",country)))
+  resp <- request("https://geoio.biodiversite-quebec.ca/state_geojson/") |> req_url_query("state_name" = region, "country_name" = country) |> req_perform()
   geojson_sf(resp_body_string(resp))
 }