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

> ### Name: allocate_wave
> ### Title: Adaptive Multi-Wave Sampling
> ### Aliases: allocate_wave
> 
> ### ** Examples
> 
> # Create dataframe with a column specifying strata, a variable of interest
> # and an indicator for whether each unit was already sampled
> set.seed(234)
> mydata <- data.frame(Strata = c(rep(1, times = 20),
+                                 rep(2, times = 20),
+                                 rep(3, times = 20)),
+                      Var = c(rnorm(20, 1, 0.5),
+                              rnorm(20, 1, 0.9),
+                              rnorm(20, 1.5, 0.9)),
+                      AlreadySampled = rep(c(rep(1, times = 5),
+                                             rep(0, times = 15)),
+                                           times = 3))
> 
> x <- allocate_wave(
+   data = mydata, strata = "Strata",
+   y = "Var", already_sampled = "AlreadySampled",
+   nsample = 20, method = "simple"
+ )
Error in `dplyr::bind_rows()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─optimall::allocate_wave(...)
  2. │ └─optimall::optimum_allocation(...)
  3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─dplyr::bind_rows(priority_array)
  6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
  7. │     │ └─base::withCallingHandlers(...)
  8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
  9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
 10. │ └─rlang::names_inform_repair(orig_names, names)
 11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 12. │     ├─base::withRestarts(...)
 13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 15. │     └─base::signalCondition(cnd)
 16. │       ├─base::conditionMessage(cond)
 17. │       └─rlang:::conditionMessage.rlang_message(cond)
 18. │         └─rlang::cnd_message(c)
 19. │           └─rlang:::cnd_message_format(cnd, ...)
 20. │             └─rlang (local) cli_format(glue_escape(lines))
 21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 22. │                 └─cli::cli_format(x, .envir = emptyenv())
 23. │                   └─cli:::fmt(...)
 24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 25. │                       ├─base::do.call(app[[msg$type]], msg$args)
 26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-354", class = NULL)
 27. │                         └─cli:::clii_bullets(app, text, id, class)
 28. │                           └─base::lapply(...)
 29. │                             └─cli (local) FUN(X[[i]], ...)
 30. │                               └─app$text(text[[i]])
 31. │                                 └─cli:::clii_text(app, text)
 32. │                                   └─app$xtext(text)
 33. │                                     └─cli:::clii__xtext(...)
 34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 35. │                                         └─base::lapply(pars, ansi_trimws)
 36. │                                           └─cli (local) FUN(X[[i]], ...)
 37. └─base::.handleSimpleError(...)
 38.   └─dplyr (local) h(simpleError(msg, call))
 39.     └─rlang::cnd_signal(cnd)
Execution halted