# ---- Ward Admin Boundaries
ward_admin_boundaries <- function() {
#Pull data from eHealth Africa geoserver
data <- read.csv("https://gis-a.ie.ehealthafrica.org/geoserver/eHA_db/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=eHA_db:sv_wards&outputFormat=csv")
return(data)
}
# ---- LGA Admin boundaries
lga_admin_boundaries <- function() {
data <- read.csv("https://gis-a.ie.ehealthafrica.org/geoserver/eHA_db/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=eHA_db:sv_local_government_areas&outputFormat=csv")
return(data)
}
# ---- State Administartive boundaries data
state_admin_boundaries <- function() {
data <- read.csv("https://gis-a.ie.ehealthafrica.org/geoserver/eHA_db/ows?service=WFS&version=1.0.0&request=GetFeature&typeName=eHA_db:sv_states&outputFormat=csv")
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.