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

> ### Name: geocode_batches
> ### Title: Geocode in batches
> ### Aliases: geocode_batches
> 
> ### ** 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",
+    "mumbai region, district of seattle, sichuan province", "sichuan",  "China, People's Republic"
+    )
> 
> geocode_batches(df, batch_size = 2, wait_time = 0.4, geonames_username = "rammkripa")
[1] "batch number"
[1] 1
Error in `dplyr::mutate()`:
ℹ In argument: `location_data = purrr::pmap(list(location_word, Country,
  n_results), get_lat_long)`.
Caused by error in `purrr::pmap()`:
ℹ In index: 2.
Caused by error in `url()`:
! cannot open the connection to 'http://api.geonames.org/searchJSON?q=seattle&country=US&type=json&username=rammkripa'
Backtrace:
     ▆
  1. ├─weed::geocode_batches(df, batch_size = 2, wait_time = 0.4, geonames_username = "rammkripa")
  2. │ └─df_slice %>% geocode(n_results, unwrap, geonames_username)
  3. ├─weed::geocode(., n_results, unwrap, geonames_username)
  4. │ └─... %>% tidyr::unnest_wider(col = location_data)
  5. ├─tidyr::unnest_wider(., col = location_data)
  6. │ └─tidyr:::check_data_frame(data)
  7. │   └─base::is.data.frame(x)
  8. ├─dplyr::mutate(...)
  9. ├─dplyr:::mutate.data.frame(...)
 10. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 11. │   ├─base::withCallingHandlers(...)
 12. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 13. │     └─mask$eval_all_mutate(quo)
 14. │       └─dplyr (local) eval()
 15. ├─purrr::pmap(list(location_word, Country, n_results), get_lat_long)
 16. │ └─purrr:::pmap_("list", .l, .f, ..., .progress = .progress)
 17. │   ├─purrr:::with_indexed_errors(...)
 18. │   │ └─base::withCallingHandlers(...)
 19. │   ├─purrr:::call_with_cleanup(...)
 20. │   └─weed (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], .l[[3L]][[i]], ...)
 21. │     └─geonames::GNsearch(...)
 22. │       └─geonames:::gnRaggedDataFrame("searchJSON", list(...), "geonames")
 23. │         └─geonames:::getJson(name, params)
 24. │           └─base::url(url, open = "r")
 25. └─base::.handleSimpleError(...)
 26.   └─purrr (local) h(simpleError(msg, call))
 27.     └─cli::cli_abort(...)
 28.       └─rlang::abort(...)
Execution halted