---
title: "healthsites-who-compare"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{healthsites-who-compare}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup}
library(afrihealthsites)
```


```{r atlas-healthsites-who, fig.width=8.5, fig.height=8.5 }


  
for(countrynum in 1:length(afcountries$name))
{
  #iso3c <- v_iso3c[countrynum]  
  #name <- iso2country(iso3c)
  country <- afcountries$name[countrynum]
  
  cat(country,"\n")
  
  #E> Error: processing vignette 'healthsites-who-compare.Rmd' failed with diagnostics:
  #E> attr(obj, "sf_column") does not point to a geometry column.
  #E> Did you rename it, without setting st_geometry(obj) <- "newname"?
  
  #temp commented out to avoid error above
  
  #compare_hs_sources(country, datasources=c('who', 'healthsites'), plot='mapview')
  
  
}





```