Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [13s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(HaDeX)
  > 
  > test_check("HaDeX")
  [ FAIL 27 | WARN 0 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_add_stat_dependency.R:7:1'): (code run outside of `test_that()`) ──
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─HaDeX::prepare_dataset(...) at test_add_stat_dependency.R:7:1
    2. │ └─... %>% arrange(Start, End)
    3. ├─dplyr::arrange(., Start, End)
    4. ├─dplyr::select(...)
    5. ├─dplyr::ungroup(.)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::summarize(...)
    8. ├─dplyr:::summarise.grouped_df(...)
    9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   12. │     └─base::lapply(.x, .f, ...)
   13. │       └─dplyr (local) FUN(X[[i]], ...)
   14. │         └─mask$eval_all_summarise(quo)
   15. │           └─dplyr (local) eval()
   16. ├─base::mean(CD160_0.001, na.rm = TRUE)
   17. └─base::.handleSimpleError(...)
   18.   └─dplyr (local) h(simpleError(msg, call))
   19.     └─dplyr (local) handler(cnd)
   20.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_calculate_confidence_limit_values.R:7:1'): (code run outside of `test_that()`) ──
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─HaDeX::prepare_dataset(...) at test_calculate_confidence_limit_values.R:7:1
    2. │ └─... %>% arrange(Start, End)
    3. ├─dplyr::arrange(., Start, End)
    4. ├─dplyr::select(...)
    5. ├─dplyr::ungroup(.)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::summarize(...)
    8. ├─dplyr:::summarise.grouped_df(...)
    9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   12. │     └─base::lapply(.x, .f, ...)
   13. │       └─dplyr (local) FUN(X[[i]], ...)
   14. │         └─mask$eval_all_summarise(quo)
   15. │           └─dplyr (local) eval()
   16. ├─base::mean(CD160_0.001, na.rm = TRUE)
   17. └─base::.handleSimpleError(...)
   18.   └─dplyr (local) h(simpleError(msg, call))
   19.     └─dplyr (local) handler(cnd)
   20.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Failure ('test_calculate_state_deuteration.R:36:3'): frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:36:3'): frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:36:3'): frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:36:3'): frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:36:3'): frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:53:3'): err_frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:53:3'): err_frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:53:3'): err_frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:53:3'): err_frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:53:3'): err_frac_deut_uptake is right ──
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_frac_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:70:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:70:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:70:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:70:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:70:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:87:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:87:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:87:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:87:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Failure ('test_calculate_state_deuteration.R:87:3'): deut_uptake is right ───
  ... %>% .[[1]] not equal to ref_dat[ref_dat[["Exposure"]] == chosen_time, ]["err_deut_uptake"][[1]].
  Lengths differ: 0 is not 1
  ── Error ('test_comparison_plot.R:9:1'): (code run outside of `test_that()`) ───
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─HaDeX::prepare_dataset(...) at test_comparison_plot.R:9:1
    2. │ └─... %>% arrange(Start, End)
    3. ├─dplyr::arrange(., Start, End)
    4. ├─dplyr::select(...)
    5. ├─dplyr::ungroup(.)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::summarize(...)
    8. ├─dplyr:::summarise.grouped_df(...)
    9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   12. │     └─base::lapply(.x, .f, ...)
   13. │       └─dplyr (local) FUN(X[[i]], ...)
   14. │         └─mask$eval_all_summarise(quo)
   15. │           └─dplyr (local) eval()
   16. ├─base::mean(CD160_0.001, na.rm = TRUE)
   17. └─base::.handleSimpleError(...)
   18.   └─dplyr (local) h(simpleError(msg, call))
   19.     └─dplyr (local) handler(cnd)
   20.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_plot_coverage.R:9:1'): class is right ──────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., ID = 1L:nrow(.))`: ℹ In argument: `ID = 1L:nrow(.)`.
  Caused by error:
  ! `ID` must be size 0 or 1, not 2.
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...)
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─HaDeX::plot_coverage(dat, chosen_state = "CD160_HVEM")
    5. │ └─... %>% ggplot(aes(x = value, y = ID, group = ID))
    6. ├─ggplot2::ggplot(., aes(x = value, y = ID, group = ID))
    7. ├─reshape2::melt(., id.vars = "ID")
    8. ├─dplyr::mutate(., ID = 1L:nrow(.))
    9. ├─dplyr:::mutate.data.frame(., ID = 1L:nrow(.))
   10. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   11. │   ├─base::withCallingHandlers(...)
   12. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   13. │     └─mask$eval_all_mutate(quo)
   14. │       └─dplyr (local) eval()
   15. ├─dplyr:::dplyr_internal_error(...)
   16. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   17. │   └─rlang:::signal_abort(cnd, .file)
   18. │     └─base::signalCondition(cnd)
   19. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   20.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_quality_control.R:8:1'): class is right ────────────────────────
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...)
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─HaDeX::quality_control(...)
    5. │ └─base::lapply(...)
    6. │   └─HaDeX (local) FUN(X[[i]], ...)
    7. │     └─HaDeX::prepare_dataset(...)
    8. │       └─... %>% arrange(Start, End)
    9. ├─dplyr::arrange(., Start, End)
   10. ├─dplyr::select(...)
   11. ├─dplyr::ungroup(.)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::summarize(...)
   14. ├─dplyr:::summarise.grouped_df(...)
   15. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   16. │   ├─base::withCallingHandlers(...)
   17. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   18. │     └─base::lapply(.x, .f, ...)
   19. │       └─dplyr (local) FUN(X[[i]], ...)
   20. │         └─mask$eval_all_summarise(quo)
   21. │           └─dplyr (local) eval()
   22. ├─base::mean(CD160_0.001, na.rm = TRUE)
   23. └─base::.handleSimpleError(...)
   24.   └─dplyr (local) h(simpleError(msg, call))
   25.     └─dplyr (local) handler(cnd)
   26.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_quality_control.R:16:1'): size is right ────────────────────────
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...)
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::colnames(...)
    5. │ └─base::is.data.frame(x)
    6. ├─HaDeX::quality_control(...)
    7. │ └─base::lapply(...)
    8. │   └─HaDeX (local) FUN(X[[i]], ...)
    9. │     └─HaDeX::prepare_dataset(...)
   10. │       └─... %>% arrange(Start, End)
   11. ├─dplyr::arrange(., Start, End)
   12. ├─dplyr::select(...)
   13. ├─dplyr::ungroup(.)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::summarize(...)
   16. ├─dplyr:::summarise.grouped_df(...)
   17. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   18. │   ├─base::withCallingHandlers(...)
   19. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   20. │     └─base::lapply(.x, .f, ...)
   21. │       └─dplyr (local) FUN(X[[i]], ...)
   22. │         └─mask$eval_all_summarise(quo)
   23. │           └─dplyr (local) eval()
   24. ├─base::mean(CD160_0.001, na.rm = TRUE)
   25. └─base::.handleSimpleError(...)
   26.   └─dplyr (local) h(simpleError(msg, call))
   27.     └─dplyr (local) handler(cnd)
   28.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_woods_plot.R:9:1'): (code run outside of `test_that()`) ────────
  Error in `summarize(., in_time_mean_1 = mean(!!sym(in_state_first), na.rm = TRUE), 
      err_in_time_mean_1 = coalesce(sd(!!sym(in_state_first), na.rm = TRUE)/sqrt(length(!!sym(in_state_first))), 
          0), chosen_time_mean_1 = mean(!!sym(chosen_state_first), 
          na.rm = TRUE), err_chosen_time_mean_1 = sd(!!sym(chosen_state_first), 
          na.rm = TRUE)/sqrt(length(!!sym(chosen_state_first))), 
      out_time_mean_1 = mean(!!sym(out_state_first), na.rm = TRUE), 
      err_out_time_mean_1 = sd(!!sym(out_state_first), na.rm = TRUE)/sqrt(length(!!sym(out_state_first))), 
      in_time_mean_2 = mean(!!sym(in_state_second), na.rm = TRUE), 
      err_in_time_mean_2 = coalesce(sd(!!sym(in_state_second), 
          na.rm = TRUE)/sqrt(length(!!sym(in_state_second))), 0), 
      chosen_time_mean_2 = mean(!!sym(chosen_state_second), na.rm = TRUE), 
      err_chosen_time_mean_2 = sd(!!sym(chosen_state_second), na.rm = TRUE)/sqrt(length(!!sym(chosen_state_second))), 
      out_time_mean_2 = mean(!!sym(out_state_second), na.rm = TRUE), 
      err_out_time_mean_2 = sd(!!sym(out_state_second), na.rm = TRUE)/sqrt(length(!!sym(out_state_second))))`: ℹ In argument: `in_time_mean_1 = mean(CD160_0.001, na.rm = TRUE)`.
  ℹ In group 1: `Sequence = "ARSQKSGIRLQGHF"`, `Start = 88`, `End = 101`,
    `MaxUptake = 13`, `MHP = 1584.872`.
  Caused by error:
  ! object 'CD160_0.001' not found
  Backtrace:
       ▆
    1. ├─HaDeX::prepare_dataset(...) at test_woods_plot.R:9:1
    2. │ └─... %>% arrange(Start, End)
    3. ├─dplyr::arrange(., Start, End)
    4. ├─dplyr::select(...)
    5. ├─dplyr::ungroup(.)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::summarize(...)
    8. ├─dplyr:::summarise.grouped_df(...)
    9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   12. │     └─base::lapply(.x, .f, ...)
   13. │       └─dplyr (local) FUN(X[[i]], ...)
   14. │         └─mask$eval_all_summarise(quo)
   15. │           └─dplyr (local) eval()
   16. ├─base::mean(CD160_0.001, na.rm = TRUE)
   17. └─base::.handleSimpleError(...)
   18.   └─dplyr (local) h(simpleError(msg, call))
   19.     └─dplyr (local) handler(cnd)
   20.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 27 | WARN 0 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted