Running ‘testthat.R’ [154s/253s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > library(testthat)
  > library(campsis)
  Loading required package: campsismod
  
  Attaching package: 'campsismod'
  
  The following object is masked from 'package:utils':
  
      find
  
  The following objects are masked from 'package:base':
  
      Position, as.data.frame, replace, sort, toString, write
  
  
  Attaching package: 'campsis'
  
  The following object is masked from 'package:stats':
  
      simulate
  
  The following object is masked from 'package:base':
  
      sample
  
  > test_check("campsis")
  Model:
  
  KA=THETA_KA*exp(ETA_KA);
  CL=THETA_CL*exp(ETA_CL);
  V=THETA_V*exp(ETA_V)*BW/70;
  S2=V;
  ARM=ARM;
  EVENT_RELATED=EVENT_RELATED;
  d/dt(A_DEPOT)=-KA*A_DEPOT;
  d/dt(A_CENTRAL)=-CL*A_CENTRAL/V+KA*A_DEPOT;
  d/dt(A_OUTPUT)=CL*A_CENTRAL/V;
  F=A_CENTRAL/S2;
  CONC=F;
  CONC_ERR=CONC*(EPS_PROP+1);
  
  
  ---:: stderr ::---------------------------------------------
  
  ------------------------------------------------------------
  
  ---:: stderr ::---------------------------------------------
  
  ------------------------------------------------------------
  
  ---:: stderr ::---------------------------------------------
  
  ------------------------------------------------------------
  
  ---:: stderr ::---------------------------------------------
  
  ------------------------------------------------------------
  
  ---:: stderr ::---------------------------------------------
  
  ------------------------------------------------------------
  [ FAIL 39 | WARN 165 | SKIP 26 | PASS 416 ]
  
  ══ Skipped tests (26) ══════════════════════════════════════════════════════════
  • empty test (26): 'testSimulateEvents.R:8:1', 'testSimulateEvents.R:32:1',
    'testSimulateEvents.R:55:1', 'testSimulateEvents.R:79:1',
    'testSimulateEvents.R:112:1', 'testSimulateEventsLogic.R:8:1',
    'testSimulateEventsLogic.R:41:1', 'testSimulateEventsLogic.R:79:1',
    'testSimulateEventsLogic.R:125:1', 'testSimulateEventsLogic.R:148:1',
    'testSimulateIOV.R:8:1', 'testSimulateIOV.R:47:1', 'testSimulateIOV.R:79:1',
    'testSimulateIOV.R:129:1', 'testSimulateIOV.R:193:1',
    'testSimulateIOV.R:241:1', 'testSimulateInfusion.R:8:1',
    'testSimulateNocbLocf.R:8:1', 'testSimulateNocbLocf.R:49:1',
    'testSimulateNocbLocf.R:89:1', 'testSimulateReplicates.R:9:1',
    'testSimulateReplicates.R:26:1', 'testSimulateReplicates.R:50:1',
    'testSimulateReplicates.R:71:1', 'testSimulateReplicates.R:107:1',
    'testSimulateTTEModels.R:7:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('testDefaultPlots.R:46:3'): Scatter plot works as expected (rxode2/mrgsolve) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `(function (.x, .y, .f, ..., .progress = FALSE) 
  {
      map2_("list", .x, .y, .f, ..., .progress = .progress)
  })(.x = list(new("campsis_model", model = new("code_records", 
      list = list(new("main_record", comment = NA_character_, statements = new("model_statements", 
          list = list(new("equation", lhs = "TVBIO", rhs = "THETA_BIO", 
              comment = NA_character_), new("equation", lhs = "TVKA", 
              rhs = "THETA_KA", comment = NA_character_), new("equation", 
              lhs = "TVVC", rhs = "THETA_VC", comment = NA_character_), 
              new("equation", lhs = "TVCL", rhs = "THETA_CL", comment = NA_character_), 
              new("line_break", comment = NA_character_), new("equation", 
                  lhs = "BIO", rhs = "TVBIO", comment = NA_character_), 
              new("equation", lhs = "KA", rhs = "TVKA * exp(ETA_KA)", 
                  comment = NA_character_), new("equation", lhs = "VC", 
                  rhs = "TVVC * exp(ETA_VC)", comment = NA_character_), 
              new("equation", lhs = "CL", rhs = "TVCL * exp(ETA_CL)", 
                  comment = NA_character_)), type = "model_statement")), 
          new("ode_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("ode", lhs = "A_ABS", rhs = "-KA*A_ABS", 
                  comment = NA_character_), new("ode", lhs = "A_CENTRAL", 
                  rhs = "KA*A_ABS - CL/VC*A_CENTRAL", comment = NA_character_)), 
              type = "model_statement")), new("error_record", comment = NA_character_, 
              statements = new("model_statements", list = list(
                  new("equation", lhs = "CONC", rhs = "A_CENTRAL/VC", 
                    comment = NA_character_), new("if_statement", 
                    condition = "CONC <= 0.001", equation = new("equation", 
                      lhs = "CONC", rhs = "0.001", comment = NA_character_), 
                    comment = NA_character_), new("equation", lhs = "CONC_ERR", 
                    rhs = "CONC*(1 + EPS_PROP_RUV)", comment = NA_character_)), 
                  type = "model_statement"))), type = "code_record"), 
      parameters = new("parameters", varcov = structure(numeric(0), dim = c(0L, 
      0L)), list = list(new("theta", unit = NA_character_, name = "BIO", 
          index = 1L, value = 1, fix = FALSE, label = "Bioavailability", 
          comment = NA_character_), new("theta", unit = "1/h", 
          name = "KA", index = 2L, value = 1, fix = FALSE, label = "Absorption rate", 
          comment = NA_character_), new("theta", unit = "L", name = "VC", 
          index = 3L, value = 10, fix = FALSE, label = "Volume of central compartment", 
          comment = NA_character_), new("theta", unit = "L/h", 
          name = "CL", index = 4L, value = 3, fix = FALSE, label = "Clearance", 
          comment = NA_character_), new("omega", same = NA, index2 = 1L, 
          type = "cv%", name = "KA", index = 1L, value = 25, fix = FALSE, 
          label = NA_character_, comment = NA_character_), new("omega", 
          same = NA, index2 = 2L, type = "cv%", name = "VC", index = 2L, 
          value = 25, fix = FALSE, label = NA_character_, comment = NA_character_), 
          new("omega", same = NA, index2 = 3L, type = "cv%", name = "CL", 
              index = 3L, value = 25, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("sigma", index2 = 1L, 
              type = "sd", name = "PROP_RUV", index = 1L, value = 0.1, 
              fix = FALSE, label = NA_character_, comment = NA_character_), 
          new("omega", same = NA, index2 = 4L, type = "cor", name = "VC_CL", 
              index = 3L, value = 0, fix = FALSE, label = NA_character_, 
              comment = NA_character_)), type = "parameter"), compartments = new("compartments", 
          properties = new("compartment_properties", list = list(
              new("compartment_bioavailability", compartment = 1L, 
                  rhs = "BIO", comment = NA_character_)), type = "compartment_property"), 
          list = list(new("compartment", name = "ABS", index = 1L), 
              new("compartment", name = "CENTRAL", index = 2L)), 
          type = "compartment"))), .y = 1L, .f = function (...) 
  {
      NULL
      NULL
      ...furrr_out <- ...furrr_fn(...)
      ...furrr_out
  })`: ℹ In index: 1.
  Caused by error:
  ℹ In index: 1.
  Caused by error in `methods::validObject()`:
  ! invalid class "campsis_model" object: In slot "parameters" of class "parameters": No OMEGA with index 4
  ── Error ('testParameterUncertainty.R:8:3'): Sample method on a CAMPSIS model is working well ──
  Error in `sample(., as.integer(100))`: No default function is provided
  Backtrace:
      ▆
   1. ├─model %>% sample(as.integer(100)) at testParameterUncertainty.R:8:2
   2. ├─campsis::sample(., as.integer(100))
   3. └─campsis::sample(., as.integer(100))
  ── Failure ('testSimulateArguments.R:48:3'): Auto seed value vs fix seed + default engine ──
  all(results1$CP == results2$CP) is not FALSE
  
  `actual`:   TRUE 
  `expected`: FALSE
  ── Error ('testSimulateBioavailability.R:49:3'): Simulate a simple bolus with bioavailability, dataset versus model (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateBioavailability.R:80:3'): Simulate several fixed F's at once (rxode2/mrgsolve) ──
  Error in `dplyr::pull(., CP)`: 
  Caused by error:
  ! object 'CP' not found
  Backtrace:
       ▆
    1. ├─results %>% dplyr::filter(TIME == 2.5) %>% dplyr::pull(CP)
    2. ├─dplyr::pull(., CP)
    3. ├─dplyr:::pull.data.frame(., CP)
    4. │ └─tidyselect::vars_pull(names(.data), !!enquo(var))
    5. │   ├─tidyselect:::with_chained_errors(...)
    6. │   │ └─rlang::try_fetch(...)
    7. │   │   ├─base::tryCatch(...)
    8. │   │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    9. │   │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   10. │   │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   11. │   │   └─base::withCallingHandlers(...)
   12. │   └─rlang::eval_tidy(expr, set_names(seq_along(vars), vars))
   13. └─base::.handleSimpleError(`<fn>`, "object 'CP' not found", base::quote(NULL))
   14.   └─rlang (local) h(simpleError(msg, call))
   15.     └─handlers[[1L]](cnd)
   16.       └─rlang::abort(msg, call = call, parent = cnd)
  ── Error ('testSimulateBolus.R:23:3'): Simulate a bolus (rxode2/mrgsolve) ──────
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateBolus.R:49:3'): Simulate a bolus, 2 arms (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateBolus.R:72:3'): Simulate a bolus, 2 labelled arms (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = c("CP", "ARM"), filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateBolusInfusionSameCmt.R:27:3'): Bolus and infusion in CMT 1 (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateDeclare.R:25:7'): Declare argument with mrgsolve ────────
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename) at testSimulateDeclare.R:25:6
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateDoseAdaptation.R:24:3'): Dose adaptations based on weight work well (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateDoseAdaptation.R:43:3'): Dose adaptations preserve specified infusion duration (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateDoseAdaptation.R:68:3'): Dose adaptations preserve specified infusion rate (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateDoseAdaptation.R:95:3'): Dose adaptations based on weight work well, check argument compartments works as expected (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateInfusion.R:59:3'): Simulate infusion using rate in dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateInfusion.R:96:3'): Simulate infusion using rate and lag time in dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateInfusion.R:117:3'): Simulate infusion using rate and lag time (parameter distribution) in dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateInit.R:21:3'): Simulate initial conditions, observations starting at 0 (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(...)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateInit.R:37:3'): Simulate initial conditions, observations starting at 5 (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateLagTime.R:23:3'): Simulate a bolus with fixed lag time in dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateLagTime.R:44:3'): Simulate a bolus with fixed lag time in model (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Failure ('testSimulateOutvars.R:23:3'): NULL outvars (rxode2/mrgsolve) ──────
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('testSimulateOutvars.R:23:3'): NULL outvars (rxode2/mrgsolve) ──────
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('testSimulateOutvars.R:42:3'): Not NULL outvars (rxode2/mrgsolve) ──
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('testSimulateOutvars.R:42:3'): Not NULL outvars (rxode2/mrgsolve) ──
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('testSimulateOutvars.R:72:3'): Not NULL outvars from ERROR block + DROP_OTHERS (rxode2/mrgsolve) ──
  `expected` not equal to colnames(results).
  Lengths differ: 4 is not 3
  ── Error ('testSimulateOutvars.R:72:3'): Not NULL outvars from ERROR block + DROP_OTHERS (rxode2/mrgsolve) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `(function (.x, .y, .f, ..., .progress = FALSE) 
  {
      map2_("list", .x, .y, .f, ..., .progress = .progress)
  })(.x = list(new("campsis_model", model = new("code_records", 
      list = list(new("main_record", comment = NA_character_, statements = new("model_statements", 
          list = list(new("equation", lhs = "KA", rhs = "THETA_KA*exp(ETA_KA)", 
              comment = NA_character_), new("equation", lhs = "CL", 
              rhs = "THETA_CL*exp(ETA_CL)", comment = NA_character_), 
              new("equation", lhs = "V2", rhs = "THETA_V2*exp(ETA_V2)", 
                  comment = NA_character_), new("equation", lhs = "V3", 
                  rhs = "THETA_V3*exp(ETA_V3)", comment = NA_character_), 
              new("equation", lhs = "Q", rhs = "THETA_Q*exp(ETA_Q)", 
                  comment = NA_character_), new("equation", lhs = "S2", 
                  rhs = "V2", comment = NA_character_)), type = "model_statement")), 
          new("ode_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("ode", lhs = "A_DEPOT", rhs = "-KA*A_DEPOT", 
                  comment = NA_character_), new("ode", lhs = "A_CENTRAL", 
                  rhs = "KA*A_DEPOT + Q*A_PERIPHERAL/V3 + (-CL/V2 - Q/V2)*A_CENTRAL", 
                  comment = NA_character_), new("ode", lhs = "A_PERIPHERAL", 
                  rhs = "-Q*A_PERIPHERAL/V3 + Q*A_CENTRAL/V2", 
                  comment = NA_character_), new("ode", lhs = "A_OUTPUT", 
                  rhs = "CL*A_CENTRAL/V2", comment = NA_character_), 
                  new("equation", lhs = "F", rhs = "A_CENTRAL/S2", 
                    comment = NA_character_)), type = "model_statement")), 
          new("error_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("equation", lhs = "CONC", rhs = "F", 
                  comment = NA_character_), new("equation", lhs = "CONC_ERR", 
                  rhs = "CONC*(EPS_PROP + 1)", comment = NA_character_)), 
              type = "model_statement"))), type = "code_record"), 
      parameters = new("parameters", varcov = structure(numeric(0), dim = c(0L, 
      0L)), list = list(new("theta", unit = NA_character_, name = "KA", 
          index = 1L, value = 1, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "CL", index = 2L, value = 5, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V2", index = 3L, value = 80, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V3", index = 4L, value = 20, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "Q", index = 5L, value = 4, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("omega", same = NA, index2 = 1L, 
          type = "var", name = "KA", index = 1L, value = 0.025, 
          fix = FALSE, label = NA_character_, comment = NA_character_), 
          new("omega", same = NA, index2 = 2L, type = "var", name = "CL", 
              index = 2L, value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 3L, type = "var", name = "V2", index = 3L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 4L, type = "var", name = "V3", index = 4L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 5L, type = "var", name = "Q", index = 5L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("sigma", index2 = 1L, 
              type = "var", name = "PROP", index = 1L, value = 0.025, 
              fix = FALSE, label = NA_character_, comment = NA_character_)), 
          type = "parameter"), compartments = new("compartments", 
          properties = new("compartment_properties", list = list(), 
              type = "compartment_property"), list = list(new("compartment", 
              name = "DEPOT", index = 1L), new("compartment", name = "CENTRAL", 
              index = 2L), new("compartment", name = "PERIPHERAL", 
              index = 3L), new("compartment", name = "OUTPUT", 
              index = 4L)), type = "compartment"))), .y = 1L, .f = function (...) 
  {
      NULL
      NULL
      ...furrr_out <- ...furrr_fn(...)
      ...furrr_out
  })`: ℹ In index: 1.
  Caused by error:
  ℹ In index: 1.
  Caused by error:
  ! the model build step failed.
  ── Failure ('testSimulateOutvars.R:89:3'): Covariates in outvars can be output well (rxode2/mrgsolve) ──
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('testSimulateOutvars.R:89:3'): Covariates in outvars can be output well (rxode2/mrgsolve) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `(function (.x, .y, .f, ..., .progress = FALSE) 
  {
      map2_("list", .x, .y, .f, ..., .progress = .progress)
  })(.x = list(new("campsis_model", model = new("code_records", 
      list = list(new("main_record", comment = NA_character_, statements = new("model_statements", 
          list = list(new("equation", lhs = "KA", rhs = "THETA_KA*exp(ETA_KA)", 
              comment = NA_character_), new("equation", lhs = "CL", 
              rhs = "THETA_CL*exp(ETA_CL)", comment = NA_character_), 
              new("equation", lhs = "V2", rhs = "THETA_V2*exp(ETA_V2)", 
                  comment = NA_character_), new("equation", lhs = "V3", 
                  rhs = "THETA_V3*exp(ETA_V3)", comment = NA_character_), 
              new("equation", lhs = "Q", rhs = "THETA_Q*exp(ETA_Q)", 
                  comment = NA_character_), new("equation", lhs = "S2", 
                  rhs = "V2", comment = NA_character_)), type = "model_statement")), 
          new("ode_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("ode", lhs = "A_DEPOT", rhs = "-KA*A_DEPOT", 
                  comment = NA_character_), new("ode", lhs = "A_CENTRAL", 
                  rhs = "KA*A_DEPOT + Q*A_PERIPHERAL/V3 + (-CL/V2 - Q/V2)*A_CENTRAL", 
                  comment = NA_character_), new("ode", lhs = "A_PERIPHERAL", 
                  rhs = "-Q*A_PERIPHERAL/V3 + Q*A_CENTRAL/V2", 
                  comment = NA_character_), new("ode", lhs = "A_OUTPUT", 
                  rhs = "CL*A_CENTRAL/V2", comment = NA_character_), 
                  new("equation", lhs = "F", rhs = "A_CENTRAL/S2", 
                    comment = NA_character_)), type = "model_statement")), 
          new("error_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("equation", lhs = "CONC", rhs = "F", 
                  comment = NA_character_), new("equation", lhs = "CONC_ERR", 
                  rhs = "CONC*(EPS_PROP + 1)", comment = NA_character_)), 
              type = "model_statement"))), type = "code_record"), 
      parameters = new("parameters", varcov = structure(numeric(0), dim = c(0L, 
      0L)), list = list(new("theta", unit = NA_character_, name = "KA", 
          index = 1L, value = 1, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "CL", index = 2L, value = 5, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V2", index = 3L, value = 80, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V3", index = 4L, value = 20, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "Q", index = 5L, value = 4, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("omega", same = NA, index2 = 1L, 
          type = "var", name = "KA", index = 1L, value = 0.025, 
          fix = FALSE, label = NA_character_, comment = NA_character_), 
          new("omega", same = NA, index2 = 2L, type = "var", name = "CL", 
              index = 2L, value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 3L, type = "var", name = "V2", index = 3L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 4L, type = "var", name = "V3", index = 4L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 5L, type = "var", name = "Q", index = 5L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("sigma", index2 = 1L, 
              type = "var", name = "PROP", index = 1L, value = 0.025, 
              fix = FALSE, label = NA_character_, comment = NA_character_)), 
          type = "parameter"), compartments = new("compartments", 
          properties = new("compartment_properties", list = list(), 
              type = "compartment_property"), list = list(new("compartment", 
              name = "DEPOT", index = 1L), new("compartment", name = "CENTRAL", 
              index = 2L), new("compartment", name = "PERIPHERAL", 
              index = 3L), new("compartment", name = "OUTPUT", 
              index = 4L)), type = "compartment"))), .y = 1L, .f = function (...) 
  {
      NULL
      NULL
      ...furrr_out <- ...furrr_fn(...)
      ...furrr_out
  })`: ℹ In index: 1.
  Caused by error:
  ℹ In index: 1.
  Caused by error:
  ! the model build step failed.
  ── Failure ('testSimulateOutvars.R:105:3'): ETAs in outvars can be output well (rxode2/mrgsolve) ──
  all(expected %in% colnames(results)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('testSimulateOutvars.R:105:3'): ETAs in outvars can be output well (rxode2/mrgsolve) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `(function (.x, .y, .f, ..., .progress = FALSE) 
  {
      map2_("list", .x, .y, .f, ..., .progress = .progress)
  })(.x = list(new("campsis_model", model = new("code_records", 
      list = list(new("main_record", comment = NA_character_, statements = new("model_statements", 
          list = list(new("equation", lhs = "KA", rhs = "THETA_KA*exp(ETA_KA)", 
              comment = NA_character_), new("equation", lhs = "CL", 
              rhs = "THETA_CL*exp(ETA_CL)", comment = NA_character_), 
              new("equation", lhs = "V2", rhs = "THETA_V2*exp(ETA_V2)", 
                  comment = NA_character_), new("equation", lhs = "V3", 
                  rhs = "THETA_V3*exp(ETA_V3)", comment = NA_character_), 
              new("equation", lhs = "Q", rhs = "THETA_Q*exp(ETA_Q)", 
                  comment = NA_character_), new("equation", lhs = "S2", 
                  rhs = "V2", comment = NA_character_)), type = "model_statement")), 
          new("ode_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("ode", lhs = "A_DEPOT", rhs = "-KA*A_DEPOT", 
                  comment = NA_character_), new("ode", lhs = "A_CENTRAL", 
                  rhs = "KA*A_DEPOT + Q*A_PERIPHERAL/V3 + (-CL/V2 - Q/V2)*A_CENTRAL", 
                  comment = NA_character_), new("ode", lhs = "A_PERIPHERAL", 
                  rhs = "-Q*A_PERIPHERAL/V3 + Q*A_CENTRAL/V2", 
                  comment = NA_character_), new("ode", lhs = "A_OUTPUT", 
                  rhs = "CL*A_CENTRAL/V2", comment = NA_character_), 
                  new("equation", lhs = "F", rhs = "A_CENTRAL/S2", 
                    comment = NA_character_)), type = "model_statement")), 
          new("error_record", comment = NA_character_, statements = new("model_statements", 
              list = list(new("equation", lhs = "CONC", rhs = "F", 
                  comment = NA_character_), new("equation", lhs = "CONC_ERR", 
                  rhs = "CONC*(EPS_PROP + 1)", comment = NA_character_)), 
              type = "model_statement"))), type = "code_record"), 
      parameters = new("parameters", varcov = structure(numeric(0), dim = c(0L, 
      0L)), list = list(new("theta", unit = NA_character_, name = "KA", 
          index = 1L, value = 1, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "CL", index = 2L, value = 5, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V2", index = 3L, value = 80, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "V3", index = 4L, value = 20, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("theta", unit = NA_character_, 
          name = "Q", index = 5L, value = 4, fix = FALSE, label = NA_character_, 
          comment = NA_character_), new("omega", same = NA, index2 = 1L, 
          type = "var", name = "KA", index = 1L, value = 0.025, 
          fix = FALSE, label = NA_character_, comment = NA_character_), 
          new("omega", same = NA, index2 = 2L, type = "var", name = "CL", 
              index = 2L, value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 3L, type = "var", name = "V2", index = 3L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 4L, type = "var", name = "V3", index = 4L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("omega", same = NA, 
              index2 = 5L, type = "var", name = "Q", index = 5L, 
              value = 0.025, fix = FALSE, label = NA_character_, 
              comment = NA_character_), new("sigma", index2 = 1L, 
              type = "var", name = "PROP", index = 1L, value = 0.025, 
              fix = FALSE, label = NA_character_, comment = NA_character_)), 
          type = "parameter"), compartments = new("compartments", 
          properties = new("compartment_properties", list = list(), 
              type = "compartment_property"), list = list(new("compartment", 
              name = "DEPOT", index = 1L), new("compartment", name = "CENTRAL", 
              index = 2L), new("compartment", name = "PERIPHERAL", 
              index = 3L), new("compartment", name = "OUTPUT", 
              index = 4L)), type = "compartment"))), .y = 1L, .f = function (...) 
  {
      NULL
      NULL
      ...furrr_out <- ...furrr_fn(...)
      ...furrr_out
  })`: ℹ In index: 1.
  Caused by error:
  ℹ In index: 1.
  Caused by error:
  ! the model build step failed.
  ── Failure ('testSimulateRUV.R:25:3'): Test generated RUV is correct (rxode2/mrgsolve) ──
  round(var(eps), 3) not equal to 0.025.
  1/1 mismatches
  [1] NA - 0.025 == NA
  ── Failure ('testSimulateRUV.R:25:3'): Test generated RUV is correct (rxode2/mrgsolve) ──
  round(var(eps), 3) not equal to 0.025.
  1/1 mismatches
  [1] NA - 0.025 == NA
  ── Error ('testSimulateScenarios.R:44:3'): Simulate scenarios - make few changes on dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = c("SCENARIO", "CP"), filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateScenarios.R:69:3'): Simulate scenarios - make few changes on model (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = c("SCENARIO", "CP"), filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateTable.R:23:3'): Simulate a bolus using the tabular dataset (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateTimeVaryingCovariates.R:24:3'): Body weight as a true time varying covariate (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateTimeVaryingCovariates.R:57:3'): Body weight as a true time varying covariate, 2 arms, individual body weights (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::all_of(selectedColumns)`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─global outputRegressionTest(results, output = "CP", filename = regFilename)
    2. │ └─... %>% dplyr::mutate_if(is.numeric, round, digits = 2)
    3. ├─dplyr::mutate_if(., is.numeric, round, digits = 2)
    4. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    5. │   └─dplyr::is_grouped_df(tbl)
    6. ├─dplyr::select(., dplyr::all_of(selectedColumns))
    7. ├─dplyr:::select.data.frame(., dplyr::all_of(selectedColumns))
    8. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
    9. │   └─tidyselect:::eval_select_impl(...)
   10. │     ├─tidyselect:::with_subscript_errors(...)
   11. │     │ └─rlang::try_fetch(...)
   12. │     │   └─base::withCallingHandlers(...)
   13. │     └─tidyselect:::vars_select_eval(...)
   14. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   15. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   16. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   17. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   18. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   19. │                 ├─tidyselect:::with_chained_errors(...)
   20. │                 │ └─rlang::try_fetch(...)
   21. │                 │   ├─base::tryCatch(...)
   22. │                 │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   23. │                 │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   24. │                 │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   25. │                 │   └─base::withCallingHandlers(...)
   26. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   27. ├─dplyr::all_of(selectedColumns)
   28. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
   29. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   30. │     └─vctrs::vec_as_location(...)
   31. └─vctrs (local) `<fn>`()
   32.   └─vctrs:::stop_subscript_oob(...)
   33.     └─vctrs:::stop_subscript(...)
   34.       └─rlang::abort(...)
  ── Error ('testSimulateWeirdCases.R:34:3'): Simulate a bolus with single observation at time 0 (rxode2/mrgsolve) ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `results[c("ID", "TIME", "CP")]`: Can't subset columns that don't exist.
  ✖ Column `CP` doesn't exist.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...)
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─results[c("ID", "TIME", "CP")]
    5. ├─tibble:::`[.tbl_df`(results, c("ID", "TIME", "CP"))
    6. │ └─tibble:::vectbl_as_col_location(...)
    7. │   ├─tibble:::subclass_col_index_errors(...)
    8. │   │ └─base::withCallingHandlers(...)
    9. │   └─vctrs::vec_as_location(j, n, names, missing = "error", call = call)
   10. └─vctrs (local) `<fn>`()
   11.   └─vctrs:::stop_subscript_oob(...)
   12.     └─vctrs:::stop_subscript(...)
   13.       └─rlang::abort(...)
  
  [ FAIL 39 | WARN 165 | SKIP 26 | PASS 416 ]
  Error: Test failures
  Execution halted