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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### 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 with `mutate()` column `location_data`.
ℹ `location_data = purrr::pmap(list(location_word, Country, n_results), get_lat_long)`.
ℹ cannot open URL 'http://api.geonames.org/searchJSON?q=seattle&country=US&type=json&username=rammkripa': HTTP status was '503 Service Unavailable'
Error: Problem with `mutate()` column `location_data`.
ℹ `location_data = purrr::pmap(list(location_word, Country, n_results), get_lat_long)`.
✖ cannot open the connection to 'http://api.geonames.org/searchJSON?q=seattle&country=US&type=json&username=rammkripa'
Backtrace:
     █
  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