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

> ### Name: plot_epx
> ### Title: Plot EPx values
> ### Aliases: plot_epx
> 
> ### ** Examples
> 
> ti <- 0:21
> expo <- abs(0.01*ti + rnorm(length(ti), 0, 0.05))
> exposure <- data.frame(time = ti, conc = expo)
> metsulfuron_epx_mtw <- metsulfuron %>%
+ set_exposure(exposure) %>%
+ epx_mtw(level = 10, factor_cutoff = 1000)
> metsulfuron_epx_mtw
# A tibble: 30 × 5
   window.start window.end endpoint level   EPx
          <dbl>      <dbl> <chr>    <chr> <dbl>
 1            0          7 BM       10     6.98
 2            0          7 r        10     4.73
 3            1          8 BM       10     6.03
 4            1          8 r        10     3.99
 5            2          9 BM       10     5.15
 6            2          9 r        10     3.39
 7            3         10 BM       10     4.73
 8            3         10 r        10     3.07
 9            4         11 BM       10     4.06
10            4         11 r        10     2.63
# ℹ 20 more rows
> plot_epx(EPx_ts = metsulfuron_epx_mtw,
+ exposure_ts = exposure, conc_y_title = "env. concentration [µg/L]")
Error in `dplyr::select()`:
ℹ In argument: `dplyr::matches("window.end", "level")`.
Caused by error in `grep()`:
! NA in coercion to Rboolean
Backtrace:
     ▆
  1. ├─cvasi::plot_epx(...)
  2. │ └─EPx_ts %>% ...
  3. ├─dplyr::select(., !dplyr::matches("window.end", "level"))
  4. ├─dplyr:::select.data.frame(., !dplyr::matches("window.end", "level"))
  5. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
  6. │   └─tidyselect:::eval_select_impl(...)
  7. │     ├─tidyselect:::with_subscript_errors(...)
  8. │     │ └─base::withCallingHandlers(...)
  9. │     └─tidyselect:::vars_select_eval(...)
 10. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
 11. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
 12. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
 13. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
 14. │               └─tidyselect:::eval_bang(expr, data_mask, context_mask)
 15. │                 └─tidyselect:::walk_data_tree(expr[[2]], data_mask, context_mask)
 16. │                   └─tidyselect:::eval_context(expr, context_mask, call = error_call)
 17. │                     ├─tidyselect:::with_chained_errors(...)
 18. │                     │ └─base::withCallingHandlers(...)
 19. │                     └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
 20. ├─dplyr::matches("window.end", "level")
 21. │ └─tidyselect:::flat_map_int(...)
 22. │   └─tidyselect:::map(unname(.x), .fn, ...)
 23. │     └─base::lapply(.x, .f, ...)
 24. │       └─tidyselect (local) FUN(X[[i]], ...)
 25. │         └─base::grep(needle, haystack, ...)
 26. └─base::.handleSimpleError(...)
 27.   └─tidyselect (local) h(simpleError(msg, call))
 28.     └─cli::cli_abort(c(i = msg), call = call, parent = cnd)
 29.       └─rlang::abort(...)
Execution halted