CRAN Package Check Results for Package xpose

Last updated on 2019-09-15 01:47:09 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.4.4 11.99 126.03 138.02 ERROR
r-devel-linux-x86_64-debian-gcc 0.4.4 8.94 97.29 106.23 ERROR
r-devel-linux-x86_64-fedora-clang 0.4.4 158.43 ERROR
r-devel-linux-x86_64-fedora-gcc 0.4.4 152.10 ERROR
r-devel-windows-ix86+x86_64 0.4.4 39.00 205.00 244.00 OK
r-patched-linux-x86_64 0.4.4 10.72 125.28 136.00 ERROR
r-patched-solaris-x86 0.4.4 216.20 ERROR
r-release-linux-x86_64 0.4.4 11.11 125.94 137.05 ERROR
r-release-windows-ix86+x86_64 0.4.4 18.00 215.00 233.00 OK
r-release-osx-x86_64 0.4.4 OK
r-oldrel-windows-ix86+x86_64 0.4.4 23.00 140.00 163.00 ERROR
r-oldrel-osx-x86_64 0.4.4 OK

Check Details

Version: 0.4.4
Check: examples
Result: ERROR
    Running examples in 'xpose-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: get_data
    > ### Title: Access model output table data
    > ### Aliases: get_data
    >
    > ### ** Examples
    >
    > # By table name
    > sdtab <- get_data(xpdb_ex_pk, 'sdtab001')
    Error: `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.4.4
Check: tests
Result: ERROR
     Running 'testthat.R' [21s/23s]
    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
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.4.4
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building 'access_xpdb_data.Rmd' using rmarkdown
    Quitting from lines 50-52 (access_xpdb_data.Rmd)
    Error: processing vignette 'access_xpdb_data.Rmd' failed with diagnostics:
    `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    --- failed re-building 'access_xpdb_data.Rmd'
    
    --- re-building 'customize_plots.Rmd' using rmarkdown
    Quitting from lines 13-26 (customize_plots.Rmd)
    Error: processing vignette 'customize_plots.Rmd' failed with diagnostics:
    Column `tmp` must be length 1 (the group size), not 2
    --- failed re-building 'customize_plots.Rmd'
    
    --- re-building 'import_model_outputs.Rmd' using rmarkdown
    --- finished re-building 'import_model_outputs.Rmd'
    
    --- re-building 'introduction.Rmd' using rmarkdown
    Quitting from lines 13-25 (introduction.Rmd)
    Error: processing vignette 'introduction.Rmd' failed with diagnostics:
    Column `out` must be length 1 (the group size), not 2
    --- failed re-building 'introduction.Rmd'
    
    --- re-building 'multiple_pages.Rmd' using rmarkdown
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    --- finished re-building 'multiple_pages.Rmd'
    
    --- re-building 'vpc.Rmd' using rmarkdown
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 1.0833 1.75 3 5 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Removed 1 rows containing missing values (geom_path).
    Warning: Removed 25 rows containing missing values (geom_point).
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting stratifying variable to SEX
    Setting lloq to 0.5.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    --- finished re-building 'vpc.Rmd'
    
    SUMMARY: processing the following files failed:
     'access_xpdb_data.Rmd' 'customize_plots.Rmd' 'introduction.Rmd'
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.4.4
Check: tests
Result: ERROR
     Running ‘testthat.R’ [16s/23s]
    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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.4.4
Check: examples
Result: ERROR
    Running examples in ‘xpose-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: get_data
    > ### Title: Access model output table data
    > ### Aliases: get_data
    >
    > ### ** Examples
    >
    > # By table name
    > sdtab <- get_data(xpdb_ex_pk, 'sdtab001')
    Error: `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-oldrel-windows-ix86+x86_64

Version: 0.4.4
Check: tests
Result: ERROR
     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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.4.4
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘access_xpdb_data.Rmd’ using rmarkdown
    Quitting from lines 50-52 (access_xpdb_data.Rmd)
    Error: processing vignette 'access_xpdb_data.Rmd' failed with diagnostics:
    `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    --- failed re-building ‘access_xpdb_data.Rmd’
    
    --- re-building ‘customize_plots.Rmd’ using rmarkdown
    Quitting from lines 13-26 (customize_plots.Rmd)
    Error: processing vignette 'customize_plots.Rmd' failed with diagnostics:
    Column `tmp` must be length 1 (the group size), not 2
    --- failed re-building ‘customize_plots.Rmd’
    
    --- re-building ‘import_model_outputs.Rmd’ using rmarkdown
    --- finished re-building ‘import_model_outputs.Rmd’
    
    --- re-building ‘introduction.Rmd’ using rmarkdown
    Quitting from lines 13-25 (introduction.Rmd)
    Error: processing vignette 'introduction.Rmd' failed with diagnostics:
    Column `out` must be length 1 (the group size), not 2
    --- failed re-building ‘introduction.Rmd’
    
    --- re-building ‘multiple_pages.Rmd’ using rmarkdown
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    --- finished re-building ‘multiple_pages.Rmd’
    
    --- re-building ‘vpc.Rmd’ using rmarkdown
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 1.0833 1.75 3 5 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Removed 1 rows containing missing values (geom_path).
    Warning: Removed 25 rows containing missing values (geom_point).
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting stratifying variable to SEX
    Setting lloq to 0.5.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    --- finished re-building ‘vpc.Rmd’
    
    SUMMARY: processing the following files failed:
     ‘access_xpdb_data.Rmd’ ‘customize_plots.Rmd’ ‘introduction.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

Version: 0.4.4
Check: tests
Result: ERROR
     Running ‘testthat.R’ [24s/28s]
    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
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.4.4
Check: tests
Result: ERROR
     Running ‘testthat.R’ [22s/23s]
    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
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.4.4
Check: installed package size
Result: NOTE
     installed size is 5.9Mb
     sub-directories of 1Mb or more:
     doc 3.1Mb
     help 1.5Mb
Flavor: r-patched-solaris-x86

Version: 0.4.4
Check: tests
Result: ERROR
     Running ‘testthat.R’ [34s/34s]
    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
Flavor: r-patched-solaris-x86

Version: 0.4.4
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
     ...
    --- re-building ‘access_xpdb_data.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Quitting from lines 50-52 (access_xpdb_data.Rmd)
    Error: processing vignette 'access_xpdb_data.Rmd' failed with diagnostics:
    `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    --- failed re-building ‘access_xpdb_data.Rmd’
    
    --- re-building ‘customize_plots.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Quitting from lines 13-26 (customize_plots.Rmd)
    Error: processing vignette 'customize_plots.Rmd' failed with diagnostics:
    Column `tmp` must be length 1 (the group size), not 2
    --- failed re-building ‘customize_plots.Rmd’
    
    --- re-building ‘import_model_outputs.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    --- finished re-building ‘import_model_outputs.Rmd’
    
    --- re-building ‘introduction.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Quitting from lines 13-25 (introduction.Rmd)
    Error: processing vignette 'introduction.Rmd' failed with diagnostics:
    Column `out` must be length 1 (the group size), not 2
    --- failed re-building ‘introduction.Rmd’
    
    --- re-building ‘multiple_pages.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    Using data from $prob no.1
    Filtering data by EVID == 0
    --- finished re-building ‘multiple_pages.Rmd’
    
    --- re-building ‘vpc.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 1.0833 1.75 3 5 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting lloq to 0.1.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Removed 1 rows containing missing values (geom_path).
    Warning: Removed 25 rows containing missing values (geom_point).
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC censored ----------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    Setting stratifying variable to SEX
    Setting lloq to 0.5.
    
    2. Computing VPC data
    Filtering rows where EVID not 0
    Filtering rows where EVID not 0
    
    VPC done
    Warning: Points (type = 'p') can only be added with continuous VPC.
    
    VPC continuous --------------------
    1. Gathering data & settings
    Using xpdb simulation problem 2 and observation problem 1.
    
    2. Computing VPC data
    Configuring and initializing...
    Parsing observed data...
    Filtering rows where EVID not 0
    Parsing simulated data...
    Filtering rows where EVID not 0
    Binning: 0 0.66667 1.25 1.75 2.1667 3 4.3333 5 6.25 7 9
    Calculating statistics for simulated data...
    Calculating statistics for observed data...
    
    VPC done
    --- finished re-building ‘vpc.Rmd’
    
    SUMMARY: processing the following files failed:
     ‘access_xpdb_data.Rmd’ ‘customize_plots.Rmd’ ‘introduction.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-patched-solaris-x86

Version: 0.4.4
Check: tests
Result: ERROR
     Running 'testthat.R' [27s]
    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
Flavor: r-oldrel-windows-ix86+x86_64

Version: 0.4.4
Check: re-building of vignette outputs
Result: WARN
    Error in re-building vignettes:
     ...
    Quitting from lines 50-52 (access_xpdb_data.Rmd)
    Error: processing vignette 'access_xpdb_data.Rmd' failed with diagnostics:
    `unnest_()` is deprecated as of tidyr 1.0.0.
    Please use `unnest()` instead.
    Execution halted
Flavor: r-oldrel-windows-ix86+x86_64