Integrating `naijR::map_ng` with `tmap`

tmap.R

library(sf)
library(tmap)

# The output of `map_ng` is of class `map` is convertible
# to an object of class `sf`
ng_map <- naijR::map_ng(plot = FALSE)
ng_sf <- st_as_sfc(ng_map)

tm_shape(ng_sf) + 
  tm_polygons()

# Interactive map
tmap_mode("view")
tm_shape(ng_sf) + tm_polygons()

# Update the `sf` object by adding a variable of letters
alpha <- sample(LETTERS[1:6], length(ng_sf), replace = TRUE)
ng_sf <- st_sf(ng_sf, data.frame(alpha = alpha))

tm_shape(ng_sf) + 
  tm_polygons("alpha")