Running 'spelling.R' [0s]
  Running 'testthat.R' [70s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(exuber)
  > 
  > test_check("exuber")
  [ FAIL 42 | WARN 57 | SKIP 4 | PASS 194 ]
  
  == Skipped tests ===============================================================
  * On CRAN (1)
  * Removed fortify (1)
  * TRUE (2)
  
  == Failed tests ================================================================
  -- Failure ('test-autoplot.R:25'): wb ------------------------------------------
  `autoplot(radf_dta, cv = wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta, cv = wb), regexp = NA) at test-autoplot.R:25:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, cv = wb)
    7. +-exuber:::autoplot.radf_obj(radf_dta, cv = wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-autoplot.R:27'): wb ------------------------------------------
  `autoplot(radf_dta_lag1, cv = wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-autoplot.R:27:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, cv = wb, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, cv = wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:63'): no problem running rp/ds/dg (mc) -------------
  `summary(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(summary(radf_dta, mc), regexp = NA) at test-summary.R:63:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-base::summary(radf_dta, mc)
    7. +-exuber:::summary.radf_obj(radf_dta, mc)
    8. | +-exuber:::summary_radf(cv, object, ...)
    9. | \-exuber:::summary_radf.mc_cv(cv, object, ...)
   10. |   +-tidy_join(object, cv) %>% ...
   11. |   +-exuber::tidy_join(object, cv)
   12. |   \-exuber:::tidy_join.radf_obj(object, cv)
   13. |     +-... %>% arrange(id, stat)
   14. |     +-dplyr::full_join(...)
   15. |     \-dplyr:::full_join.data.frame(...)
   16. |       \-dplyr:::join_mutate(...)
   17. |         \-dplyr:::join_rows(...)
   18. |           \-dplyr:::dplyr_locate_matches(...)
   19. |             +-base::withCallingHandlers(...)
   20. |             \-vctrs::vec_locate_matches(...)
   21. +-tidyr::pivot_wider(., names_from = sig, values_from = crit)
   22. +-dplyr::arrange(., id, stat)
   23. +-dplyr::mutate(...)
   24. +-vctrs:::warn_matches_multiple(...)
   25. | \-vctrs:::warn_matches(...)
   26. |   \-vctrs:::warn_vctrs(...)
   27. |     \-rlang::warn(...)
   28. |       \-base::warning(cnd)
   29. |         \-base::withRestarts(...)
   30. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   31. |             \-base (local) doWithOneRestart(return(expr), restart)
   32. \-dplyr (local) `<fn>`(`<vctrs___>`)
   33.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   34.     \-dplyr:::warn_join(...)
   35.       \-dplyr:::warn_dplyr(...)
   36.         \-rlang::warn(...)
   37.           \-base::warning(cnd)
   38.             \-base::withRestarts(...)
   39.               \-base (local) withOneRestart(expr, restarts[[1L]])
   40.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:64'): no problem running rp/ds/dg (mc) -------------
  `diagnostics(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(diagnostics(radf_dta, mc), regexp = NA) at test-summary.R:64:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta, mc)
    7. +-exuber:::diagnostics.radf_obj(radf_dta, mc)
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:65'): no problem running rp/ds/dg (mc) -------------
  `diagnostics(radf_dta, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:65:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta, mc, option = "sadf")
    7. +-exuber:::diagnostics.radf_obj(radf_dta, mc, option = "sadf")
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:66'): no problem running rp/ds/dg (mc) -------------
  `datestamp(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta, mc), regexp = NA) at test-summary.R:66:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, mc)
    7. +-exuber:::datestamp.radf_obj(radf_dta, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:67'): no problem running rp/ds/dg (mc) -------------
  `datestamp(radf_dta, mc, min_duration = 50)` threw an error with unexpected message.
  Expected match: "Argument 'min_duration' excludes all explosive periods"
  Actual message: "(converted from warning) Each row in `x` is expected to match at most 1 row in `y`.\ni Row 1 of `x` matches multiple rows.\ni If multiple matches are expected, set `multiple = \"all\"` to silence this\n  warning."
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:67:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, mc, min_duration = 50)
    7. +-exuber:::datestamp.radf_obj(radf_dta, mc, min_duration = 50)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:71'): no problem running rp/ds/dg (mc) -------------
  `datestamp(radf_dta, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:71:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, mc, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:72'): no problem running rp/ds/dg (mc) -------------
  `autoplot(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta, mc), regexp = NA) at test-summary.R:72:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, mc)
    7. +-exuber:::autoplot.radf_obj(radf_dta, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:76'): no problem running rp/ds/dg (mc) -------------
  `autoplot(radf_dta, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:76:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, mc, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:83'): no problem running summary (lag, mc) ---------
  `summary(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(summary(radf_dta_lag1, mc), regexp = NA) at test-summary.R:83:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-base::summary(radf_dta_lag1, mc)
    7. +-exuber:::summary.radf_obj(radf_dta_lag1, mc)
    8. | +-exuber:::summary_radf(cv, object, ...)
    9. | \-exuber:::summary_radf.mc_cv(cv, object, ...)
   10. |   +-tidy_join(object, cv) %>% ...
   11. |   +-exuber::tidy_join(object, cv)
   12. |   \-exuber:::tidy_join.radf_obj(object, cv)
   13. |     +-... %>% arrange(id, stat)
   14. |     +-dplyr::full_join(...)
   15. |     \-dplyr:::full_join.data.frame(...)
   16. |       \-dplyr:::join_mutate(...)
   17. |         \-dplyr:::join_rows(...)
   18. |           \-dplyr:::dplyr_locate_matches(...)
   19. |             +-base::withCallingHandlers(...)
   20. |             \-vctrs::vec_locate_matches(...)
   21. +-tidyr::pivot_wider(., names_from = sig, values_from = crit)
   22. +-dplyr::arrange(., id, stat)
   23. +-dplyr::mutate(...)
   24. +-vctrs:::warn_matches_multiple(...)
   25. | \-vctrs:::warn_matches(...)
   26. |   \-vctrs:::warn_vctrs(...)
   27. |     \-rlang::warn(...)
   28. |       \-base::warning(cnd)
   29. |         \-base::withRestarts(...)
   30. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   31. |             \-base (local) doWithOneRestart(return(expr), restart)
   32. \-dplyr (local) `<fn>`(`<vctrs___>`)
   33.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   34.     \-dplyr:::warn_join(...)
   35.       \-dplyr:::warn_dplyr(...)
   36.         \-rlang::warn(...)
   37.           \-base::warning(cnd)
   38.             \-base::withRestarts(...)
   39.               \-base (local) withOneRestart(expr, restarts[[1L]])
   40.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:84'): no problem running summary (lag, mc) ---------
  `diagnostics(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(diagnostics(radf_dta_lag1, mc), regexp = NA) at test-summary.R:84:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta_lag1, mc)
    7. +-exuber:::diagnostics.radf_obj(radf_dta_lag1, mc)
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:85'): no problem running summary (lag, mc) ---------
  `diagnostics(radf_dta_lag1, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:85:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta_lag1, mc, option = "sadf")
    7. +-exuber:::diagnostics.radf_obj(radf_dta_lag1, mc, option = "sadf")
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:86'): no problem running summary (lag, mc) ---------
  `datestamp(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta_lag1, mc), regexp = NA) at test-summary.R:86:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, mc)
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:87'): no problem running summary (lag, mc) ---------
  `datestamp(radf_dta_lag1, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:87:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, mc, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:88'): no problem running summary (lag, mc) ---------
  `autoplot(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta_lag1, mc), regexp = NA) at test-summary.R:88:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, mc)
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:96'): no problem running summary (wb) --------------
  `summary(radf_dta, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(summary(radf_dta, wb), regexp = NA) at test-summary.R:96:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-base::summary(radf_dta, wb)
    7. +-exuber:::summary.radf_obj(radf_dta, wb)
    8. | +-exuber:::summary_radf(cv, object, ...)
    9. | \-exuber:::summary_radf.wb_cv(cv, object, ...)
   10. |   +-tidy_join(object, cv) %>% ...
   11. |   +-exuber::tidy_join(object, cv)
   12. |   \-exuber:::tidy_join.radf_obj(object, cv)
   13. |     +-... %>% arrange(id, stat)
   14. |     +-dplyr::full_join(...)
   15. |     \-dplyr:::full_join.data.frame(...)
   16. |       \-dplyr:::join_mutate(...)
   17. |         \-dplyr:::join_rows(...)
   18. |           \-dplyr:::dplyr_locate_matches(...)
   19. |             +-base::withCallingHandlers(...)
   20. |             \-vctrs::vec_locate_matches(...)
   21. +-tidyr::pivot_wider(., names_from = sig, values_from = crit)
   22. +-dplyr::arrange(., id, stat)
   23. +-dplyr::mutate(...)
   24. +-vctrs:::warn_matches_multiple(...)
   25. | \-vctrs:::warn_matches(...)
   26. |   \-vctrs:::warn_vctrs(...)
   27. |     \-rlang::warn(...)
   28. |       \-base::warning(cnd)
   29. |         \-base::withRestarts(...)
   30. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   31. |             \-base (local) doWithOneRestart(return(expr), restart)
   32. \-dplyr (local) `<fn>`(`<vctrs___>`)
   33.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   34.     \-dplyr:::warn_join(...)
   35.       \-dplyr:::warn_dplyr(...)
   36.         \-rlang::warn(...)
   37.           \-base::warning(cnd)
   38.             \-base::withRestarts(...)
   39.               \-base (local) withOneRestart(expr, restarts[[1L]])
   40.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:97'): no problem running summary (wb) --------------
  `diagnostics(radf_dta, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(diagnostics(radf_dta, wb), regexp = NA) at test-summary.R:97:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta, wb)
    7. +-exuber:::diagnostics.radf_obj(radf_dta, wb)
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:98'): no problem running summary (wb) --------------
  `diagnostics(radf_dta, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:98:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta, wb, option = "sadf")
    7. +-exuber:::diagnostics.radf_obj(radf_dta, wb, option = "sadf")
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:99'): no problem running summary (wb) --------------
  `datestamp(radf_dta, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta, wb), regexp = NA) at test-summary.R:99:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, wb)
    7. +-exuber:::datestamp.radf_obj(radf_dta, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:100'): no problem running summary (wb) -------------
  `datestamp(radf_dta, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:100:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, wb, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:101'): no problem running summary (wb) -------------
  `autoplot(radf_dta, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta, wb), regexp = NA) at test-summary.R:101:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, wb)
    7. +-exuber:::autoplot.radf_obj(radf_dta, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:102'): no problem running summary (wb) -------------
  `autoplot(radf_dta, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:102:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, wb, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:109'): no problem running summary (lag,wb) ---------
  `summary(radf_dta_lag1, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(summary(radf_dta_lag1, wb), regexp = NA) at test-summary.R:109:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-base::summary(radf_dta_lag1, wb)
    7. +-exuber:::summary.radf_obj(radf_dta_lag1, wb)
    8. | +-exuber:::summary_radf(cv, object, ...)
    9. | \-exuber:::summary_radf.wb_cv(cv, object, ...)
   10. |   +-tidy_join(object, cv) %>% ...
   11. |   +-exuber::tidy_join(object, cv)
   12. |   \-exuber:::tidy_join.radf_obj(object, cv)
   13. |     +-... %>% arrange(id, stat)
   14. |     +-dplyr::full_join(...)
   15. |     \-dplyr:::full_join.data.frame(...)
   16. |       \-dplyr:::join_mutate(...)
   17. |         \-dplyr:::join_rows(...)
   18. |           \-dplyr:::dplyr_locate_matches(...)
   19. |             +-base::withCallingHandlers(...)
   20. |             \-vctrs::vec_locate_matches(...)
   21. +-tidyr::pivot_wider(., names_from = sig, values_from = crit)
   22. +-dplyr::arrange(., id, stat)
   23. +-dplyr::mutate(...)
   24. +-vctrs:::warn_matches_multiple(...)
   25. | \-vctrs:::warn_matches(...)
   26. |   \-vctrs:::warn_vctrs(...)
   27. |     \-rlang::warn(...)
   28. |       \-base::warning(cnd)
   29. |         \-base::withRestarts(...)
   30. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   31. |             \-base (local) doWithOneRestart(return(expr), restart)
   32. \-dplyr (local) `<fn>`(`<vctrs___>`)
   33.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   34.     \-dplyr:::warn_join(...)
   35.       \-dplyr:::warn_dplyr(...)
   36.         \-rlang::warn(...)
   37.           \-base::warning(cnd)
   38.             \-base::withRestarts(...)
   39.               \-base (local) withOneRestart(expr, restarts[[1L]])
   40.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:110'): no problem running summary (lag,wb) ---------
  `diagnostics(radf_dta_lag1, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(diagnostics(radf_dta_lag1, wb), regexp = NA) at test-summary.R:110:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta_lag1, wb)
    7. +-exuber:::diagnostics.radf_obj(radf_dta_lag1, wb)
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:111'): no problem running summary (lag,wb) ---------
  `diagnostics(radf_dta_lag1, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:111:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::diagnostics(radf_dta_lag1, wb, option = "sadf")
    7. +-exuber:::diagnostics.radf_obj(radf_dta_lag1, wb, option = "sadf")
    8. | +-... %>% filter(stat == option)
    9. | +-exuber::tidy_join(object, cv)
   10. | \-exuber:::tidy_join.radf_obj(object, cv)
   11. |   +-... %>% arrange(id, stat)
   12. |   +-dplyr::full_join(...)
   13. |   \-dplyr:::full_join.data.frame(...)
   14. |     \-dplyr:::join_mutate(...)
   15. |       \-dplyr:::join_rows(...)
   16. |         \-dplyr:::dplyr_locate_matches(...)
   17. |           +-base::withCallingHandlers(...)
   18. |           \-vctrs::vec_locate_matches(...)
   19. +-dplyr::filter(., stat == option)
   20. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   21. +-dplyr::arrange(., id, stat)
   22. +-dplyr::mutate(...)
   23. +-vctrs:::warn_matches_multiple(...)
   24. | \-vctrs:::warn_matches(...)
   25. |   \-vctrs:::warn_vctrs(...)
   26. |     \-rlang::warn(...)
   27. |       \-base::warning(cnd)
   28. |         \-base::withRestarts(...)
   29. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   30. |             \-base (local) doWithOneRestart(return(expr), restart)
   31. \-dplyr (local) `<fn>`(`<vctrs___>`)
   32.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   33.     \-dplyr:::warn_join(...)
   34.       \-dplyr:::warn_dplyr(...)
   35.         \-rlang::warn(...)
   36.           \-base::warning(cnd)
   37.             \-base::withRestarts(...)
   38.               \-base (local) withOneRestart(expr, restarts[[1L]])
   39.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:112'): no problem running summary (lag,wb) ---------
  `datestamp(radf_dta_lag1, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta_lag1, wb), regexp = NA) at test-summary.R:112:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, wb)
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:113'): no problem running summary (lag,wb) ---------
  `datestamp(radf_dta_lag1, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:113:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, wb, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:114'): no problem running summary (lag,wb) ---------
  `autoplot(radf_dta_lag1, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta_lag1, wb), regexp = NA) at test-summary.R:114:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, wb)
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:115'): no problem running summary (lag,wb) ---------
  `autoplot(radf_dta_lag1, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:115:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, wb, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:124'): no problem running with (date, mc) ----------
  `datestamp(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta, mc), regexp = NA) at test-summary.R:124:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, mc)
    7. +-exuber:::datestamp.radf_obj(radf_dta, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:125'): no problem running with (date, mc) ----------
  `datestamp(radf_dta, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:125:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, mc, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:126'): no problem running with (date, mc) ----------
  `autoplot(radf_dta, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta, mc), regexp = NA) at test-summary.R:126:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, mc)
    7. +-exuber:::autoplot.radf_obj(radf_dta, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:127'): no problem running with (date, mc) ----------
  `autoplot(radf_dta, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:127:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta, mc, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:134'): no problem running summary with (date, lag, mc) --
  `datestamp(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta_lag1, mc), regexp = NA) at test-summary.R:134:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, mc)
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:135'): no problem running summary with (date, lag, mc) --
  `datestamp(radf_dta_lag1, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:135:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, mc, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:136'): no problem running summary with (date, lag, mc) --
  `autoplot(radf_dta_lag1, mc)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(autoplot(radf_dta_lag1, mc), regexp = NA) at test-summary.R:136:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, mc)
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, mc)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:137'): no problem running summary with (date, lag, mc) --
  `autoplot(radf_dta_lag1, mc, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:137:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-ggplot2::autoplot(radf_dta_lag1, mc, option = "sadf")
    7. +-exuber:::autoplot.radf_obj(radf_dta_lag1, mc, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:144'): no problem running summary (date, wb) -------
  `datestamp(radf_dta, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta, wb), regexp = NA) at test-summary.R:144:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, wb)
    7. +-exuber:::datestamp.radf_obj(radf_dta, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:145'): no problem running summary (date, wb) -------
  `datestamp(radf_dta, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:145:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta, wb, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:153'): no problem running summary (date, lag, wb) --
  `datestamp(radf_dta_lag1, wb)` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(datestamp(radf_dta_lag1, wb), regexp = NA) at test-summary.R:153:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, wb)
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, wb)
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  -- Failure ('test-summary.R:154'): no problem running summary (date, lag, wb) --
  `datestamp(radf_dta_lag1, wb, option = "sadf")` threw an error.
  Message: (converted from warning) Each row in `x` is expected to match at most 1 row in `y`.
  i Row 1 of `x` matches multiple rows.
  i If multiple matches are expected, set `multiple = "all"` to silence this
    warning.
  Class:   simpleError/error/condition
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test-summary.R:154:4
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. +-exuber::datestamp(radf_dta_lag1, wb, option = "sadf")
    7. +-exuber:::datestamp.radf_obj(radf_dta_lag1, wb, option = "sadf")
    8. | \-exuber:::diagnostics_internal(object, cv)
    9. |   +-exuber::diagnostics(...)
   10. |   \-exuber:::diagnostics.radf_obj(...)
   11. |     +-... %>% filter(stat == option)
   12. |     +-exuber::tidy_join(object, cv)
   13. |     \-exuber:::tidy_join.radf_obj(object, cv)
   14. |       +-... %>% arrange(id, stat)
   15. |       +-dplyr::full_join(...)
   16. |       \-dplyr:::full_join.data.frame(...)
   17. |         \-dplyr:::join_mutate(...)
   18. |           \-dplyr:::join_rows(...)
   19. |             \-dplyr:::dplyr_locate_matches(...)
   20. |               +-base::withCallingHandlers(...)
   21. |               \-vctrs::vec_locate_matches(...)
   22. +-dplyr::filter(., stat == option)
   23. +-tidyr::pivot_wider(., names_from = sig, values_from = crit, names_prefix = "cv")
   24. +-dplyr::arrange(., id, stat)
   25. +-dplyr::mutate(...)
   26. +-vctrs:::warn_matches_multiple(...)
   27. | \-vctrs:::warn_matches(...)
   28. |   \-vctrs:::warn_vctrs(...)
   29. |     \-rlang::warn(...)
   30. |       \-base::warning(cnd)
   31. |         \-base::withRestarts(...)
   32. |           \-base (local) withOneRestart(expr, restarts[[1L]])
   33. |             \-base (local) doWithOneRestart(return(expr), restart)
   34. \-dplyr (local) `<fn>`(`<vctrs___>`)
   35.   \-dplyr:::rethrow_warning_join_matches_multiple(cnd, error_call)
   36.     \-dplyr:::warn_join(...)
   37.       \-dplyr:::warn_dplyr(...)
   38.         \-rlang::warn(...)
   39.           \-base::warning(cnd)
   40.             \-base::withRestarts(...)
   41.               \-base (local) withOneRestart(expr, restarts[[1L]])
   42.                 \-base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 42 | WARN 57 | SKIP 4 | PASS 194 ]
  Error: Test failures
  Execution halted