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,
+    "mumbai region, district of seattle, sichuan province",  "mumbai","India",
+    "mumbai region, district of seattle, sichuan province",  "seattle", "USA"
+    )
> geocode(df, n_results = 1, unwrap = TRUE, geonames_username = "rammkripa")
Warning: Problem while computing `location_data = purrr::pmap(list(location_word,
Country, n_results), get_lat_long)`.
ℹ URL
  'http://api.geonames.org/searchJSON?q=mumbai&country=IN&type=json&username=rammkripa':
  Timeout of 60 seconds was reached
Error in `dplyr::mutate()`:
! Problem while computing `location_data =
  purrr::pmap(list(location_word, Country, n_results), get_lat_long)`.
Caused by error in `purrr::pmap()`:
ℹ In index: 1.
Caused by error in `url()`:
! cannot open the connection to 'http://api.geonames.org/searchJSON?q=mumbai&country=IN&type=json&username=rammkripa'
Backtrace:
     ▆
  1. ├─weed::geocode(df, n_results = 1, unwrap = TRUE, geonames_username = "rammkripa")
  2. │ └─... %>% tidyr::unnest_wider(col = location_data)
  3. ├─tidyr::unnest_wider(., col = location_data)
  4. │ └─base::is.data.frame(data)
  5. ├─dplyr::mutate(...)
  6. ├─dplyr:::mutate.data.frame(...)
  7. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), caller_env = caller_env())
  8. │   ├─base::withCallingHandlers(...)
  9. │   └─mask$eval_all_mutate(quo)
 10. ├─purrr::pmap(list(location_word, Country, n_results), get_lat_long)
 11. │ └─purrr:::pmap_("list", .l, .f, ..., .progress = .progress)
 12. │   ├─purrr:::with_indexed_errors(...)
 13. │   │ └─base::withCallingHandlers(...)
 14. │   └─weed (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], .l[[3L]][[i]], ...)
 15. │     └─geonames::GNsearch(...)
 16. │       └─geonames:::gnRaggedDataFrame("searchJSON", list(...), "geonames")
 17. │         └─geonames:::getJson(name, params)
 18. │           └─base::url(url, open = "r")
 19. └─base::.handleSimpleError(...)
 20.   └─purrr (local) h(simpleError(msg, call))
 21.     └─cli::cli_abort(c(i = "In index: {i}."), parent = cnd, call = error_call)
 22.       └─rlang::abort(...)
Execution halted