tests/testthat/test-geonames.R

In datasketch/geodata: geodata package for maps

test_that("multiplication works", {

  # some_nms <- c("nombre","ciudad","edad")
  # col <- which_geoname_column(some_nms)
  #
  #
  # d <- dplyr::tribble(
  #   ~ciudad,~value,
  #   "Bogotá",1,
  #   "Pasto",2,
  #   "Buga",3
  # )
  #
  # geocode(d, mapName = "col_municipalities")


  d <- data.frame(country = c("Cabo verde", "Congo (Kinshasa)","Congo (Brazzaville)", "Eswatini","Holy See"))
  geocode(d, mapName = "world_countries")

})