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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: exposure_estimate_idw
> ### Title: Estimate the pollutant exposure using the inverse distance
> ###   weighting method
> ### Aliases: exposure_estimate_idw
> 
> ### ** Examples
> 
> library(EnvExpInd)
> individual_data$date <- as.Date(individual_data$date)
> pollutant_data$date <- as.Date(pollutant_data$date)
> pollutant_data_full <- timeseries_imput(data= pollutant_data,date_var = "date",
+ site_var = "site.name",imput_col = 3:8)
> pollutant_data_tem <- merge(pollutant_data_full,site_data,by.x = "site.name",by.y = "site")
> exposure_estimate_idw(
+    individual_data = individual_data,
+    individual_id = "id",
+    exposure_date ="date",
+    individual_lat ="lat",
+    individual_lon ="lon",
+    pollutant_data = pollutant_data_tem,
+    pollutant_date = "date",
+    pollutant_site_lat = "lat",
+    pollutant_site_lon = "lon",
+    pollutant_name = c("PM10","PM2.5"),
+    estimate_interval = c(0:10))
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
[inverse distance weighted interpolation]
Error in `dplyr::bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─EnvExpInd::exposure_estimate_idw(...)
  2. │ └─base::lapply(...)
  3. │   └─EnvExpInd (local) FUN(X[[i]], ...)
  4. │     └─dplyr::bind_cols(pollutant.list)
  5. │       ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
  6. │       │ └─base::withCallingHandlers(...)
  7. │       └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
  8. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
  9. │ └─rlang::names_inform_repair(orig_names, names)
 10. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 11. │     ├─base::withRestarts(...)
 12. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 13. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 14. │     └─base::signalCondition(cnd)
 15. │       ├─base::conditionMessage(cond)
 16. │       └─rlang:::conditionMessage.rlang_message(cond)
 17. │         └─rlang::cnd_message(c)
 18. │           └─rlang:::cnd_message_format(cnd, ...)
 19. │             └─rlang (local) cli_format(glue_escape(lines))
 20. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 21. │                 └─cli::cli_format(x, .envir = emptyenv())
 22. │                   └─cli:::fmt(...)
 23. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 24. │                       ├─base::do.call(app[[msg$type]], msg$args)
 25. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-138", class = NULL)
 26. │                         └─cli:::clii_bullets(app, text, id, class)
 27. │                           └─base::lapply(...)
 28. │                             └─cli (local) FUN(X[[i]], ...)
 29. │                               └─app$text(text[[i]])
 30. │                                 └─cli:::clii_text(app, text)
 31. │                                   └─app$xtext(text)
 32. │                                     └─cli:::clii__xtext(...)
 33. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 34. │                                         └─base::lapply(pars, ansi_trimws)
 35. │                                           └─cli (local) FUN(X[[i]], ...)
 36. └─base::.handleSimpleError(...)
 37.   └─dplyr (local) h(simpleError(msg, call))
 38.     └─rlang::cnd_signal(cnd)
Execution halted