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

> ### Name: mergeTrialInfo
> ### Title: Merge trial id information
> ### Aliases: mergeTrialInfo
> 
> ### ** Examples
> 
>  servosphere <- list(data.frame(id = rep(1, 200),
+                                 stimulus = rep(c(0, 1), each = 100),
+                                 dT = sample(8:12, 200, replace = TRUE),
+                                 dx = runif(200, 0, 5),
+                                 dy = runif(200, 0, 5),
+                                 treatment = rep("a", 200),
+                                 date = rep("2032018", 200)),
+                      data.frame(id = rep(2, 200),
+                                 stimulus = rep(c(0, 1), each = 100),
+                                 dT = sample(8:12, 200, replace = TRUE),
+                                 dx = runif(200, 0, 5),
+                                 dy = runif(200, 0, 5),
+                                 treatment = rep("b", 200),
+                                 date = rep("2032018", 200)))
>  trial_record <- data.frame(id = c(1, 2),
+                             treatment = c("a", "b"),
+                             date = c("2032018", "2042018"),
+                             time = c("13:30", "07:30"))
>  trial_id_split <- data.frame(id = c(1, 2, 1, 2),
+                               stimulus = c(1, 1, 2, 2),
+                               treatment = c("a", "b", "a", "b"),
+                               date = rep(c("2032018", "2042018"), times = 2),
+                               time = rep(c("13:30", "07:30"), times = 2),
+                               id_stim = c("1_1", "2_1", "1_2", "2_2"))
> # Merge the columns id, treatment, and date from the trial_record data frame
> # with all the data frames in our list servosphere.
> 
>  merged_servosphere <- mergeTrialInfo(servosphere,
+    trial_record,
+    col.names = c("id", "treatment"),
+    stimulus.keep = c(0, 1))
Error in `bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─servosphereR::mergeTrialInfo(...)
  2. │ └─purrr::map2(...)
  3. │   └─servosphereR (local) .f(.x[[i]], .y[[i]], ...)
  4. │     └─dplyr::bind_cols(.x, .y)
  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-24140-54", 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