Running ‘testthat.R’ [24s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(xpose)
  Loading required package: ggplot2
  
  Attaching package: 'xpose'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("xpose")
  ── 1. Error: Check summary.xpose_data returns a proper message (@test-console_ou
  Column `value` must be length 1 (the group size), not 34
  1: expect_equal(capture_output(summary(xpdb_ex_pk)), summary_text) at testthat/test-console_outputs.R:32
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture_output(summary(xpdb_ex_pk))
  5: capture_output_lines(code, print, width = width)
  6: eval_with_output(code, print = print, width = width)
  7: withr::with_output_sink(temp, withVisible(code))
  8: force(code)
  9: withVisible(code)
  10: summary(xpdb_ex_pk)
  11: summary.xpose_data(xpdb_ex_pk)
  12: get_summary(object, .problem, only_last = FALSE) %>% dplyr::filter(.$value != "na") %>% 
         dplyr::slice(order(match(.$label, order))) %>% dplyr::group_by_(.dots = c("problem", 
         "label", "descr")) %>% tidyr::nest() %>% dplyr::mutate(value = purrr::map_chr(.$data, 
         function(x) {
             if (nrow(x) == 1) 
                 return(x$value)
             value <- stringr::str_c(x$value, " (subprob no.", x$subprob, ")", sep = "")
             stringr::str_c(value, collapse = "\n")
         })) %>% dplyr::mutate(descr = stringr::str_pad(.$descr, width = max(nchar(.$descr)) + 
         2, "right"), label = stringr::str_pad(.$label, width = max(nchar(.$label)), "right"), 
         value = stringr::str_replace_all(.$value, "\n", stringr::str_pad("\n", max(nchar(.$descr)) + 
             max(nchar(.$label)) + 9, "right"))) %>% dplyr::mutate(descr = stringr::str_c(.$descr, 
         "@", .$label, "")) %>% dplyr::mutate(string = stringr::str_c(" -", .$descr, ":", 
         .$value, sep = " "), grouping = as.character(.$problem)) %>% dplyr::group_by_(.dots = "grouping") %>% 
         tidyr::nest() %>% {
         purrr::map(.$data, function(x) {
             x <- dplyr::filter(.data = x, !stringr::str_detect(x$descr, "Problem number"))
             if (x$problem[1] == 0) {
                 lab <- "[Global information]"
             }
             else {
                 lab_row <- which(stringr::str_detect(x$descr, stringr::fixed("Run label")))
                 lab <- stringr::str_c("[", x$value[lab_row], "]", sep = "")
                 x <- x[-lab_row, ]
             }
             cat("\nSummary for problem no.", x$problem[1], lab, "\n")
             cat(x$string, sep = "\n")
         })
     }
  13: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  14: eval(quote(`_fseq`(`_lhs`)), env, env)
  15: eval(quote(`_fseq`(`_lhs`)), env, env)
  16: `_fseq`(`_lhs`)
  17: freduce(value, `_function_list`)
  18: function_list[[i]](value)
  19: dplyr::mutate(., value = purrr::map_chr(.$data, function(x) {
         if (nrow(x) == 1) 
             return(x$value)
         value <- stringr::str_c(x$value, " (subprob no.", x$subprob, ")", sep = "")
         stringr::str_c(value, collapse = "\n")
     }))
  20: mutate.tbl_df(., value = purrr::map_chr(.$data, function(x) {
         if (nrow(x) == 1) 
             return(x$value)
         value <- stringr::str_c(x$value, " (subprob no.", x$subprob, ")", sep = "")
         stringr::str_c(value, collapse = "\n")
     }))
  21: mutate_impl(.data, dots, caller_env())
  
  ── 2. Error: Check list_vars returns a proper message (@test-console_outputs.R#3
  Column `string` must be length 1 (the group size), not 14
  1: expect_equal(capture_output(list_vars(xpdb_ex_pk, .problem = 1)), vars_text) at testthat/test-console_outputs.R:36
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture_output(list_vars(xpdb_ex_pk, .problem = 1))
  5: capture_output_lines(code, print, width = width)
  6: eval_with_output(code, print = print, width = width)
  7: withr::with_output_sink(temp, withVisible(code))
  8: force(code)
  9: withVisible(code)
  10: list_vars(xpdb_ex_pk, .problem = 1)
  ...
  21: df$index[[1]] %>% dplyr::group_by_(.dots = "type") %>% tidyr::nest() %>% dplyr::mutate(string = purrr::map_chr(.$data, 
         ~stringr::str_c(unique(.$col), collapse = ", ")), descr = dplyr::case_when(.$type == 
         "id" ~ "Subject identifier (id)", .$type == "occ" ~ "Occasion flag (occ)", .$type == 
         "na" ~ "Not attributed (na)", .$type == "amt" ~ "Dose amount (amt)", .$type == 
         "idv" ~ "Independent variable (idv)", .$type == "ipred" ~ "Model individual predictions (ipred)", 
         .$type == "pred" ~ "Model typical predictions (pred)", .$type == "res" ~ "Residuals (res)", 
         .$type == "evid" ~ "Event identifier (evid)", .$type == "dv" ~ "Dependent variable (dv)", 
         .$type == "catcov" ~ "Categorical covariates (catcov)", .$type == "contcov" ~ 
             "Continuous covariates (contcov)", .$type == "param" ~ "Model parameter (param)", 
         .$type == "eta" ~ "Eta (eta)", .$type == "a" ~ "Compartment amounts (a)", .$type == 
             "dvid" ~ "DV identifier (dvid)", .$type == "mdv" ~ "Missing dependent variable (mdv)")) %>% 
         dplyr::mutate(descr = stringr::str_pad(.$descr, 37, "right")) %>% dplyr::slice(order(match(.$type, 
         order))) %>% {
         stringr::str_c(" -", .$descr, ":", .$string, sep = " ")
     } %>% cat(sep = "\n")
  22: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  23: eval(quote(`_fseq`(`_lhs`)), env, env)
  24: eval(quote(`_fseq`(`_lhs`)), env, env)
  25: `_fseq`(`_lhs`)
  26: freduce(value, `_function_list`)
  27: function_list[[i]](value)
  28: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(unique(.$col), collapse = ", ")), 
         descr = dplyr::case_when(.$type == "id" ~ "Subject identifier (id)", .$type == 
             "occ" ~ "Occasion flag (occ)", .$type == "na" ~ "Not attributed (na)", .$type == 
             "amt" ~ "Dose amount (amt)", .$type == "idv" ~ "Independent variable (idv)", 
             .$type == "ipred" ~ "Model individual predictions (ipred)", .$type == "pred" ~ 
                 "Model typical predictions (pred)", .$type == "res" ~ "Residuals (res)", 
             .$type == "evid" ~ "Event identifier (evid)", .$type == "dv" ~ "Dependent variable (dv)", 
             .$type == "catcov" ~ "Categorical covariates (catcov)", .$type == "contcov" ~ 
                 "Continuous covariates (contcov)", .$type == "param" ~ "Model parameter (param)", 
             .$type == "eta" ~ "Eta (eta)", .$type == "a" ~ "Compartment amounts (a)", 
             .$type == "dvid" ~ "DV identifier (dvid)", .$type == "mdv" ~ "Missing dependent variable (mdv)"))
  29: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(unique(.$col), collapse = ", ")), 
         descr = dplyr::case_when(.$type == "id" ~ "Subject identifier (id)", .$type == 
             "occ" ~ "Occasion flag (occ)", .$type == "na" ~ "Not attributed (na)", .$type == 
             "amt" ~ "Dose amount (amt)", .$type == "idv" ~ "Independent variable (idv)", 
             .$type == "ipred" ~ "Model individual predictions (ipred)", .$type == "pred" ~ 
                 "Model typical predictions (pred)", .$type == "res" ~ "Residuals (res)", 
             .$type == "evid" ~ "Event identifier (evid)", .$type == "dv" ~ "Dependent variable (dv)", 
             .$type == "catcov" ~ "Categorical covariates (catcov)", .$type == "contcov" ~ 
                 "Continuous covariates (contcov)", .$type == "param" ~ "Model parameter (param)", 
             .$type == "eta" ~ "Eta (eta)", .$type == "a" ~ "Compartment amounts (a)", 
             .$type == "dvid" ~ "DV identifier (dvid)", .$type == "mdv" ~ "Missing dependent variable (mdv)"))
  30: mutate_impl(.data, dots, caller_env())
  
  ── 3. Error: (unknown) (@test-edits.R#4)  ──────────────────────────────────────
  Column `tmp` must be length 1 (the group size), not 2
  1: xpdb_ex_pk %>% mutate.xpose_data(DV = log(DV), .problem = 1) %>% distinct.xpose_data(DV, 
         .problem = 1) %>% select.xpose_data(ID:TAD, DV, EVID, .problem = 1) %>% rename.xpose_data(TSLD = TAD, 
         .problem = 1) %>% get_data(.problem = 1) at testthat/test-edits.R:4
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: mutate.xpose_data(., DV = log(DV), .problem = 1)
  9: edit_xpose_data(.fun = dplyr::mutate, .fname = "mutate", .data = .data, .problem = .problem, 
         .source = .source, .where = .where, ...)
  10: xpdb_index_update(xpdb = xpdb, .problem = .problem)
  11: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  12: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  13: eval(quote(`_fseq`(`_lhs`)), env, env)
  14: eval(quote(`_fseq`(`_lhs`)), env, env)
  15: `_fseq`(`_lhs`)
  16: freduce(value, `_function_list`)
  17: function_list[[i]](value)
  18: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  19: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  20: mutate_impl(.data, dots, caller_env())
  
  ── 4. Error: works with simulation problems (@test-list_nm_tables.R#50)  ───────
  Column `string` must be length 1 (the group size), not 2
  1: list_nm_tables(nm_model = simtab_test) at testthat/test-list_nm_tables.R:50
  2: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  10: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  11: mutate_impl(.data, dots, caller_env())
  
  ── 5. Error: works with estimation problems (@test-list_nm_tables.R#59)  ───────
  Column `string` must be length 1 (the group size), not 5
  1: list_nm_tables(nm_model = sdtab_test) at testthat/test-list_nm_tables.R:59
  2: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  10: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  11: mutate_impl(.data, dots, caller_env())
  
  ── 6. Error: (unknown) (@test-manual_import.R#7)  ──────────────────────────────
  Column `string` must be length 1 (the group size), not 5
  1: xpose_data(file = "run001.lst", dir = "data", ignore = c("files", "summary"), quiet = TRUE)$data$index[[1]] %>% 
         dplyr::filter(.$table == "sdtab001") %>% dplyr::arrange_(.dots = "table") at testthat/test-manual_import.R:7
  2: eval(lhs, parent, parent)
  3: eval(lhs, parent, parent)
  4: xpose_data(file = "run001.lst", dir = "data", ignore = c("files", "summary"), quiet = TRUE)
  5: list_nm_tables(model_code)
  6: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: function_list[[i]](value)
  13: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  14: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  15: mutate_impl(.data, dots, caller_env())
  
  ── 7. Error: summary is properly created with the appropriate information (@test
  Column `value` must be length 1 (the group size), not 2
  1: expect_equal(sum_out(sum_warnings(model, software), 1), c("warnings", "(WARNING 2) NM-TRAN INFERS THAT THE DATA ARE POPULATION.")) at testthat/test-model-summary.R:42
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: sum_out(sum_warnings(model, software), 1)
  5: sum_warnings(model, software) at testthat/test-model-summary.R:11
  6: x %>% dplyr::mutate(problem = stringr::str_match(.$code, "FOR PROBLEM\\s+(\\d+)")[, 
         2]) %>% tidyr::fill_(fill_cols = "problem") %>% dplyr::mutate(problem = as.numeric(.$problem)) %>% 
         dplyr::filter(!stringr::str_detect(.$code, "FOR PROBLEM\\s+(\\d+)")) %>% dplyr::mutate(code = stringr::str_trim(.$code)) %>% 
         dplyr::mutate(code = stringr::str_trunc(.$code, width = 56)) %>% dplyr::distinct_(.dots = c("problem", 
         "code")) %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest() %>% dplyr::mutate(value = purrr::map_chr(.$data, 
         ~stringr::str_c(.$code, collapse = "\n"))) %>% dplyr::mutate(subprob = 0, label = "warnings") %>% 
         dplyr::select(dplyr::one_of("problem", "subprob", "label", "value"))
  7: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: `_fseq`(`_lhs`)
  11: freduce(value, `_function_list`)
  12: function_list[[i]](value)
  13: dplyr::mutate(., value = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = "\n")))
  14: mutate.tbl_df(., value = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = "\n")))
  15: mutate_impl(.data, dots, caller_env())
  
  ── 8. Failure: no error occurs when xpdb is from a simulation only for not_sim_f
  `dv_vs_idv(xpdb_sim_only)` threw an error.
  Message: No `data` slot could be found in this xpdb.
  Class:   simpleError/error/condition
  
  ── 9. Failure: no error occurs when xpdb is from a simulation only for not_sim_f
  `res_vs_idv(xpdb_sim_only)` threw an error.
  Message: No `data` slot could be found in this xpdb.
  Class:   simpleError/error/condition
  
  ── 10. Failure: no error occurs when xpdb is from a simulation only for not_sim_
  `absval_res_vs_idv(xpdb_sim_only)` threw an error.
  Message: No `data` slot could be found in this xpdb.
  Class:   simpleError/error/condition
  
  ── 11. Failure: have proper error check for iteration_plot_function prm_vs_itera
  `prm_vs_iteration(xpdb_mis_file)` threw an error with unexpected message.
  Expected match: "File extension.+not found in model output files"
  Actual message: "No `files` slot could be found in this xpdb."
  
  ── 12. Failure: have proper error check for iteration_plot_function grd_vs_itera
  `grd_vs_iteration(xpdb_mis_file)` threw an error with unexpected message.
  Expected match: "File extension.+not found in model output files"
  Actual message: "No `files` slot could be found in this xpdb."
  
  ── 13. Failure: have proper error check for distribution_function res_distrib (@
  `res_distrib(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 14. Failure: have proper error check for distribution_function res_distrib (@
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 15. Error: have proper error check for distribution_function res_distrib  ───
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 16. Failure: have proper error check for distribution_function res_qq (@test-
  `res_qq(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 17. Failure: have proper error check for distribution_function res_qq (@test-
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 18. Error: have proper error check for distribution_function res_qq  ────────
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 19. Failure: have proper error check for distribution_function prm_distrib (@
  `prm_distrib(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 20. Failure: have proper error check for distribution_function prm_distrib (@
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 21. Error: have proper error check for distribution_function prm_distrib  ───
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 22. Failure: have proper error check for distribution_function prm_qq (@test-
  `prm_qq(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 23. Failure: have proper error check for distribution_function prm_qq (@test-
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 24. Error: have proper error check for distribution_function prm_qq  ────────
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 25. Failure: have proper error check for distribution_function eta_distrib (@
  `eta_distrib(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 26. Failure: have proper error check for distribution_function eta_distrib (@
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 27. Error: have proper error check for distribution_function eta_distrib  ───
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 28. Failure: have proper error check for distribution_function eta_qq (@test-
  `eta_qq(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 29. Failure: have proper error check for distribution_function eta_qq (@test-
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 30. Error: have proper error check for distribution_function eta_qq  ────────
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 31. Failure: have proper error check for distribution_function cov_distrib (@
  `cov_distrib(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 32. Failure: have proper error check for distribution_function cov_distrib (@
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 33. Error: have proper error check for distribution_function cov_distrib  ───
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 34. Failure: have proper error check for distribution_function cov_qq (@test-
  `cov_qq(xpdb_sim_only)` threw an error with unexpected message.
  Expected match: "Column.+ not available"
  Actual message: "No `data` slot could be found in this xpdb."
  
  ── 35. Failure: have proper error check for distribution_function cov_qq (@test-
  `xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = TRUE)` threw an error with unexpected message.
  Expected match: "No non-fixed variables available for plotting"
  Actual message: "Column `tmp` must be length 1 (the group size), not 2"
  
  ── 36. Error: have proper error check for distribution_function cov_qq  ────────
  Column `tmp` must be length 1 (the group size), not 2
  1: quasi_label(enquo(object), label, arg = "object")
  2: eval_bare(get_expr(quo), get_env(quo))
  3: is.xpose.plot(xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE))
  4: xpdb_ex_pk %>% mutate(ETA1 = 0, ETA2 = 0, ETA3 = 0) %>% eta_qq(drop_fixed = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  ...
  15: xpdb[["data"]] %>% dplyr::group_by_(.dots = "problem") %>% tidyr::nest(.key = "tmp") %>% 
         dplyr::mutate(tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
             function(x) {
                 col_names <- colnames(x$data[[1]])
                 x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
                 add_cols <- col_names[!col_names %in% x$index[[1]]$col]
                 if (length(add_cols) > 0) {
                     x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                       col = add_cols, type = "na", label = NA_character_, units = NA_character_))
                 }
                 x
             })) %>% tidyr::unnest_(unnest_cols = "tmp")
  16: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  17: eval(quote(`_fseq`(`_lhs`)), env, env)
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: `_fseq`(`_lhs`)
  20: freduce(value, `_function_list`)
  21: function_list[[i]](value)
  22: dplyr::mutate(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  23: mutate.tbl_df(., tmp = purrr::map_if(.$tmp, xpdb[["data"]]$problem %in% .problem, 
         function(x) {
             col_names <- colnames(x$data[[1]])
             x$index[[1]] <- x$index[[1]] %>% dplyr::filter(.$col %in% col_names)
             add_cols <- col_names[!col_names %in% x$index[[1]]$col]
             if (length(add_cols) > 0) {
                 x$index[[1]] <- x$index[[1]] %>% dplyr::bind_rows(dplyr::tibble(table = "na", 
                     col = add_cols, type = "na", label = NA_character_, units = NA_character_))
             }
             x
         }))
  24: mutate_impl(.data, dots, caller_env())
  
  ── 37. Error: read_nm_files handles one file with inappropriate format (@test-re
  Column `tmp` must be length 1 (the group size), not 3
  1: expect_warning(tmp_file_A <- read_nm_files(file = c(file1, file2, file3), quiet = TRUE), 
         regexp = "Dropped.+inappropriate format") at testthat/test-read_nm_files.R:36
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: read_nm_files(file = c(file1, file2, file3), quiet = TRUE)
  7: full_path %>% dplyr::tibble(path = ., name = basename(.)) %>% dplyr::filter(file.exists(.$path)) %>% 
         dplyr::mutate(grouping = 1:n(), raw = purrr::map(.$path, .f = readr::read_lines)) %>% 
         dplyr::group_by_(.dots = "grouping") %>% tidyr::nest() %>% dplyr::mutate(tmp = purrr::map(.$data, 
         .f = parse_nm_files, quiet)) %>% dplyr::mutate(drop = purrr::map_lgl(.$tmp, is.null))
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: dplyr::mutate(., tmp = purrr::map(.$data, .f = parse_nm_files, quiet))
  15: mutate.tbl_df(., tmp = purrr::map(.$data, .f = parse_nm_files, quiet))
  16: mutate_impl(.data, dots, caller_env())
  
  ── 38. Failure: read_nm_files handles all files with inappropriate format (@test
  `suppressWarnings(...)` threw an error with unexpected message.
  Expected match: "No output file imported"
  Actual message: "Column `tmp` must be length 1 (the group size), not 3"
  
  ── 39. Error: (unknown) (@test-read_nm_tables.R#5)  ────────────────────────────
  `unnest_()` is deprecated as of tidyr 1.0.0.
  Please use `unnest()` instead.
  1: read_nm_tables(file = "sdtab001", dir = "data", quiet = TRUE) at testthat/test-read_nm_tables.R:5
  2: tables %>% dplyr::mutate(top = purrr::map(.$file, ~readr::read_lines(file = ., n_max = 3)), 
         grouping = 1:n()) %>% dplyr::group_by_(.dots = "grouping") %>% tidyr::nest() %>% 
         dplyr::mutate(args = purrr::map(.x = .$data, .f = read_args, quiet, ...)) %>% 
         tidyr::unnest_(unnest_cols = "data") %>% tidyr::unnest_(unnest_cols = "args") %>% 
         dplyr::mutate(name = basename(.$file)) %>% dplyr::select(dplyr::one_of("problem", 
         "name", "simtab", "firstonly", "fun", "params"))
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: tidyr::unnest_(., unnest_cols = "data")
  10: lifecycle::deprecate_stop("1.0.0", "unnest_()", "unnest()")
  
  ── 40. Error: set_vars_type works properly (@test-set_vars.R#12)  ──────────────
  Column `out` must be length 1 (the group size), not 2
  1: expect_warning(xpdb_2 <- set_var_types(xpdb_ex_pk, .problem = NULL, idv = "PRED", 
         catcov = c("SS", "II"), fake = "HELLO"), regexp = "HELLO not present in the data") at testthat/test-set_vars.R:12
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: set_var_types(xpdb_ex_pk, .problem = NULL, idv = "PRED", catcov = c("SS", "II"), 
         fake = "HELLO")
  7: dat %>% dplyr::mutate(grouping = .$problem) %>% dplyr::group_by_(.dots = "grouping") %>% 
         tidyr::nest(.key = "tmp") %>% dplyr::mutate(out = purrr::map_if(.$tmp, .$grouping %in% 
         .problem, function(x, args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         single_type <- c("amt", "dv", "dvid", "evid", "id", "idv", "ipred", "mdv", "pred")
         single_type <- single_type[single_type %in% args$type]
         if (length(single_type) > 0) 
             index$type[index$type %in% single_type] <- "na"
         for (repl in 1:nrow(args)) {
             index$type[index$col == args$col[repl]] <- args$type[repl]
         }
         x$index[[1]] <- index
         if (any(args$type == "catcov") && auto_factor) {
             col_to_factor <- colnames(x$data[[1]]) %in% args$col[args$type == "catcov"]
             x$data[[1]] <- x$data[[1]] %>% dplyr::mutate_if(col_to_factor, as.factor)
         }
         x
     }, args = args, quiet = quiet)) %>% tidyr::unnest_(unnest_cols = "out") %>% dplyr::select(dplyr::one_of("problem", 
         "simtab", "index", "data", "modified"))
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: `_fseq`(`_lhs`)
  12: freduce(value, `_function_list`)
  13: function_list[[i]](value)
  14: dplyr::mutate(., out = purrr::map_if(.$tmp, .$grouping %in% .problem, function(x, 
         args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         single_type <- c("amt", "dv", "dvid", "evid", "id", "idv", "ipred", "mdv", "pred")
         single_type <- single_type[single_type %in% args$type]
         if (length(single_type) > 0) 
             index$type[index$type %in% single_type] <- "na"
         for (repl in 1:nrow(args)) {
             index$type[index$col == args$col[repl]] <- args$type[repl]
         }
         x$index[[1]] <- index
         if (any(args$type == "catcov") && auto_factor) {
             col_to_factor <- colnames(x$data[[1]]) %in% args$col[args$type == "catcov"]
             x$data[[1]] <- x$data[[1]] %>% dplyr::mutate_if(col_to_factor, as.factor)
         }
         x
     }, args = args, quiet = quiet))
  15: mutate.tbl_df(., out = purrr::map_if(.$tmp, .$grouping %in% .problem, function(x, 
         args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         single_type <- c("amt", "dv", "dvid", "evid", "id", "idv", "ipred", "mdv", "pred")
         single_type <- single_type[single_type %in% args$type]
         if (length(single_type) > 0) 
             index$type[index$type %in% single_type] <- "na"
         for (repl in 1:nrow(args)) {
             index$type[index$col == args$col[repl]] <- args$type[repl]
         }
         x$index[[1]] <- index
         if (any(args$type == "catcov") && auto_factor) {
             col_to_factor <- colnames(x$data[[1]]) %in% args$col[args$type == "catcov"]
             x$data[[1]] <- x$data[[1]] %>% dplyr::mutate_if(col_to_factor, as.factor)
         }
         x
     }, args = args, quiet = quiet))
  16: mutate_impl(.data, dots, caller_env())
  
  ── 41. Error: set_vars_units and set_vars_label works properly (@test-set_vars.R
  Column `out` must be length 1 (the group size), not 2
  1: expect_warning(xpdb_3 <- set_var_units(xpdb_ex_pk, .problem = NULL, CL = "L/h", V = "L", 
         fake = "HELLO"), regexp = "fake not present in the data") at testthat/test-set_vars.R:24
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: set_var_units(xpdb_ex_pk, .problem = NULL, CL = "L/h", V = "L", fake = "HELLO")
  7: set_var_generic(xpdb = xpdb, .problem = .problem, quiet = quiet, what = "units", 
         ...)
  8: dat %>% dplyr::mutate(grouping = .$problem) %>% dplyr::group_by_(.dots = "grouping") %>% 
         tidyr::nest(.key = "tmp") %>% dplyr::mutate(out = purrr::map_if(.$tmp, .$grouping %in% 
         .problem, function(x, args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         index[match(args$col, index$col), what] <- args$variable
         x$index[[1]] <- index
         x
     }, args = args, quiet = quiet)) %>% tidyr::unnest_(unnest_cols = "out") %>% dplyr::select(dplyr::one_of("problem", 
         "simtab", "index", "data", "modified"))
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: dplyr::mutate(., out = purrr::map_if(.$tmp, .$grouping %in% .problem, function(x, 
         args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         index[match(args$col, index$col), what] <- args$variable
         x$index[[1]] <- index
         x
     }, args = args, quiet = quiet))
  16: mutate.tbl_df(., out = purrr::map_if(.$tmp, .$grouping %in% .problem, function(x, 
         args, quiet) {
         index <- x$index[[1]]
         if (any(!args$col %in% index$col)) {
             warning(c("In $prob no.", x$problem, " columns: ", stringr::str_c(args$col[!args$col %in% 
                 index$col], collapse = ", "), " not present in the data."), call. = FALSE)
             args <- dplyr::filter(.data = args, args$col %in% index$col)
         }
         index[match(args$col, index$col), what] <- args$variable
         x$index[[1]] <- index
         x
     }, args = args, quiet = quiet))
  17: mutate_impl(.data, dots, caller_env())
  
  ── 42. Error: (unknown) (@test-vpc.R#21)  ──────────────────────────────────────
  `unnest_()` is deprecated as of tidyr 1.0.0.
  Please use `unnest()` instead.
  1: vpc_data(xpdb_ex_pk, psn_folder = "data/psn_vpc/", quiet = TRUE) at testthat/test-vpc.R:21
  2: psn_vpc_parser(xpdb = xpdb, psn_folder = psn_folder, psn_bins = psn_bins, opt = opt, 
         quiet = quiet)
  3: read_nm_tables(file = dir(file_path(psn_folder, "m1"), pattern = "original.npctab")[1], 
         dir = file.path(psn_folder, "m1"), quiet = TRUE)
  4: tables %>% dplyr::mutate(top = purrr::map(.$file, ~readr::read_lines(file = ., n_max = 3)), 
         grouping = 1:n()) %>% dplyr::group_by_(.dots = "grouping") %>% tidyr::nest() %>% 
         dplyr::mutate(args = purrr::map(.x = .$data, .f = read_args, quiet, ...)) %>% 
         tidyr::unnest_(unnest_cols = "data") %>% tidyr::unnest_(unnest_cols = "args") %>% 
         dplyr::mutate(name = basename(.$file)) %>% dplyr::select(dplyr::one_of("problem", 
         "name", "simtab", "firstonly", "fun", "params"))
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: function_list[[i]](value)
  11: tidyr::unnest_(., unnest_cols = "data")
  12: lifecycle::deprecate_stop("1.0.0", "unnest_()", "unnest()")
  
  ── 43. Failure: get_data checks input properly (@test-xpdb_access.R#42)  ───────
  `get_data(xpdb_ex_pk, table = "faketab")` threw an error with unexpected message.
  Expected match: "faketab not found"
  Actual message: "`unnest_()` is deprecated as of tidyr 1.0.0.\nPlease use `unnest()` instead."
  
  ── 44. Error: get_data works properly (@test-xpdb_access.R#54)  ────────────────
  `unnest_()` is deprecated as of tidyr 1.0.0.
  Please use `unnest()` instead.
  1: expect_equal(get_data(xpdb_ex_pk, table = "sdtab001"), xpdb_ex_pk$data$data[[1]][, 
         xpdb_ex_pk$data$index[[1]]$col[xpdb_ex_pk$data$index[[1]]$table == "sdtab001"]]) at testthat/test-xpdb_access.R:54
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_data(xpdb_ex_pk, table = "sdtab001")
  5: x %>% dplyr::select(dplyr::one_of("problem", "index")) %>% tidyr::unnest_(unnest_cols = "index")
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: withVisible(function_list[[k]](value))
  12: function_list[[k]](value)
  13: tidyr::unnest_(., unnest_cols = "index")
  14: lifecycle::deprecate_stop("1.0.0", "unnest_()", "unnest()")
  
  ── 45. Error: properly creates the xpdb when using the file argument (@test-xpos
  Column `string` must be length 1 (the group size), not 5
  1: xpose_data(file = "run001.lst", dir = "data", quiet = TRUE) at testthat/test-xpose_data.R:30
  2: list_nm_tables(model_code)
  3: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  11: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  12: mutate_impl(.data, dots, caller_env())
  
  ── 46. Error: properly creates the xpdb when using the runno argument (@test-xpo
  Column `string` must be length 1 (the group size), not 5
  1: xpose_data(runno = "001", ext = ".lst", dir = "data", quiet = TRUE) at testthat/test-xpose_data.R:48
  2: list_nm_tables(model_code)
  3: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  11: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  12: mutate_impl(.data, dots, caller_env())
  
  ── 47. Failure: properly handles errors in tables (@test-xpose_data.R#67)  ─────
  `... <- NULL` produced unexpected warnings.
  Expected match: Dropped `badtab001`
  Actual values:
  * `unnest_()` is deprecated as of tidyr 1.0.0.
  Please use `unnest()` instead.
  
  ── 48. Error: properly handles errors in summary (@test-xpose_data.R#78)  ──────
  Column `string` must be length 1 (the group size), not 5
  1: expect_warning(xpdb_4 <- xpose_data(runno = "001", ext = ".lst", dir = "data", ignore = c("data", 
         "files"), quiet = TRUE, xp_theme = broken_theme), regexp = "Failed to create run summary") at testthat/test-xpose_data.R:78
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: xpose_data(runno = "001", ext = ".lst", dir = "data", ignore = c("data", "files"), 
         quiet = TRUE, xp_theme = broken_theme)
  7: list_nm_tables(model_code)
  8: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  16: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  17: mutate_impl(.data, dots, caller_env())
  
  ── 49. Error: properly handles errors in files (@test-xpose_data.R#86)  ────────
  Column `string` must be length 1 (the group size), not 5
  1: expect_warning(xpdb_5 <- xpose_data(runno = "001", ext = ".lst", dir = "data", ignore = c("data", 
         "summary"), quiet = FALSE, extra_files = c(".lst", ".mod")), regexp = "Dropped `run001.lst`") at testthat/test-xpose_data.R:86
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: xpose_data(runno = "001", ext = ".lst", dir = "data", ignore = c("data", "summary"), 
         quiet = FALSE, extra_files = c(".lst", ".mod"))
  7: list_nm_tables(model_code)
  8: table_list %>% dplyr::group_by_(.dots = c("problem", "level")) %>% tidyr::nest() %>% 
         dplyr::mutate(string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " "))) %>% 
         dplyr::mutate(file = stringr::str_match(.$string, "\\s+FILE\\s*=\\s*([^\\s]+)")[, 
             2]) %>% dplyr::filter(!is.na(.$file))
  9: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: `_fseq`(`_lhs`)
  13: freduce(value, `_function_list`)
  14: function_list[[i]](value)
  15: dplyr::mutate(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  16: mutate.tbl_df(., string = purrr::map_chr(.$data, ~stringr::str_c(.$code, collapse = " ")))
  17: mutate_impl(.data, dots, caller_env())
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 389 | SKIPPED: 1 | WARNINGS: 25 | FAILED: 49 ]
  1. Error: Check summary.xpose_data returns a proper message (@test-console_outputs.R#32) 
  2. Error: Check list_vars returns a proper message (@test-console_outputs.R#36) 
  3. Error: (unknown) (@test-edits.R#4) 
  4. Error: works with simulation problems (@test-list_nm_tables.R#50) 
  5. Error: works with estimation problems (@test-list_nm_tables.R#59) 
  6. Error: (unknown) (@test-manual_import.R#7) 
  7. Error: summary is properly created with the appropriate information (@test-model-summary.R#42) 
  8. Failure: no error occurs when xpdb is from a simulation only for not_sim_function dv_vs_idv (@test-plots.R#57) 
  9. Failure: no error occurs when xpdb is from a simulation only for not_sim_function res_vs_idv (@test-plots.R#57) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted