Running examples in 'weed-Ex.R' failed
The error most likely occurred in:

> ### Name: geocode
> ### Title: GeoCodes text locations using the GeoNames API
> ### Aliases: geocode
> 
> ### ** Examples
> 
> df <- tibble::tribble(
+    ~value,  ~location_word,                    ~Country,
+    "city of new york",      "new york",                       "USA",
+    "mumbai region, district of seattle, sichuan province",  "mumbai","India",
+    "mumbai region, district of seattle, sichuan province",  "seattle", "USA",
+    "mumbai region, district of seattle, sichuan province", "sichuan",  "China, People's Republic"
+    )
> geocode(df, n_results = 1, unwrap = TRUE, geonames_username = "rammkripa")
Warning: Problem with `mutate()` column `location_data`.
i `location_data = purrr::pmap(list(location_word, Country, n_results), get_lat_long)`.
i URL 'http://api.geonames.org/searchJSON?q=new%20york&country=US&type=json&username=rammkripa': status was 'Couldn't resolve host name'
Error: Problem with `mutate()` column `location_data`.
i `location_data = purrr::pmap(list(location_word, Country, n_results), get_lat_long)`.
x cannot open the connection to 'http://api.geonames.org/searchJSON?q=new%20york&country=US&type=json&username=rammkripa'
Backtrace:
     x
  1. +-weed::geocode(df, n_results = 1, unwrap = TRUE, geonames_username = "rammkripa")
  2. | \-`%>%`(...)
  3. +-tidyr::unnest_wider(., col = location_data)
  4. | +-tidyselect::vars_pull(tbl_vars(data), !!enquo(col))
  5. | \-dplyr::tbl_vars(data)
  6. |   +-dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
  7. |   | \-base::structure(...)
  8. |   \-dplyr:::tbl_vars_dispatch(x)
  9. +-dplyr::mutate(...)
 10. +-dplyr:::mutate.data.frame(...)
 11. | \-dplyr:::mutate_cols(.data, ..., caller_env = caller_env())
 12. |   +-base::withCallingHandlers(...)
 13. |   \-mask$eval_all_mutate(quo)
 14. +-purrr::pmap(list(location_word, Country, n_results), get_lat_long)
 15. | \-weed:::.f(.l[[1L]][[i]], .l[[2L]][[i]], .l[[3L]][[1L]], ...)
 16. |   \-geonames::GNsearch(...)
 17. |     \-geonames:::gnRaggedDataFrame("searchJSON", list(...), "geonames")
 18. |       \-geonames:::getJson(name, params)
 19. |         \-base::url(url, open = "r")
 20. \-base::.handleSimpleError(...)
 21.   \-dplyr:::h(simpleError(msg, call))
Execution halted