Running ‘testthat.R’ [8s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(jmv)
  
  Attaching package: 'jmv'
  
  The following object is masked from 'package:stats':
  
      anova
  
  > 
  > suppressWarnings(RNGversion("3.5.0"))
  > 
  > test_check("jmv")
  ── 1. Error: ancova works (@testancova.R#11)  ──────────────────────────────────
  not a function
  1: jmv::ancova(data, dep = "dep", factors = "f", covs = "c") at testthat/testancova.R:11
  2: ancovaOptions$new(dep = dep, factors = factors, covs = covs, effectSize = effectSize, 
         modelTerms = modelTerms, ss = ss, homo = homo, qq = qq, contrasts = contrasts, 
         postHoc = postHoc, postHocCorr = postHocCorr, emMeans = emMeans, emmPlots = emmPlots, 
         emmPlotData = emmPlotData, emmPlotError = emmPlotError, emmTables = emmTables, 
         emmWeights = emmWeights, ciWidthEmm = ciWidthEmm)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("emMeans", emMeans, default = list(list()), template = jmvcore::OptionVariables$new("emMeans", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list())))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 2. Error: anova works (@testanova.R#8)  ─────────────────────────────────────
  not a function
  1: jmv::ANOVA(ToothGrowth, dep = "len", factors = c("dose", "supp")) at testthat/testanova.R:8
  2: anovaOptions$new(dep = dep, factors = factors, effectSize = effectSize, modelTerms = modelTerms, 
         ss = ss, homo = homo, qq = qq, contrasts = contrasts, postHoc = postHoc, postHocCorr = postHocCorr, 
         emMeans = emMeans, emmPlots = emmPlots, emmPlotData = emmPlotData, emmPlotError = emmPlotError, 
         emmTables = emmTables, emmWeights = emmWeights, ciWidthEmm = ciWidthEmm)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("emMeans", emMeans, default = list(list()), template = jmvcore::OptionVariables$new("emMeans", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list())))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 3. Error: anovanp works (@testanovanp.R#10)  ────────────────────────────────
  'names' attribute [4] must be the same length as the vector [0]
  1: jmv::anovaNP(data, deps = "dep", group = "f") at testthat/testanovanp.R:10
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     as.data.frame.Table(self))()
  13: as.data.frame.Table(self)
  14: `colnames<-`(`*tmp*`, value = names)
  
  ── 4. Error: anovaonew works (@testanovaonew.R#11)  ────────────────────────────
  This results group cannot be converted to a data frame.
  Perhaps you mean to access some of it's children:
      ...$desc$asDF
      ...$qq$asDF
  1: jmv::anovaOneW(dat, deps = "len", group = "dose", fishers = TRUE, desc = TRUE, eqv = TRUE, 
         phMethod = "gamesHowell", phTest = TRUE) at testthat/testanovaonew.R:11
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     {
         children <- paste0("\n    ...$", self$itemNames, "$asDF", collapse = "")
         stop("This results group cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
             children, call. = FALSE)
     })()
  13: stop("This results group cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
         children, call. = FALSE)
  
  ── 5. Error: anovarm works (@testanovarm.R#37)  ────────────────────────────────
  not a function
  1: jmv::anovaRM(data = data, rm = rm, rmCells = rmCells, bs = "between", rmTerms = list("intake"), 
         bsTerms = list("between"), postHoc = postHoc) at testthat/testanovarm.R:37
  2: anovaRMOptions$new(rm = rm, rmCells = rmCells, bs = bs, cov = cov, effectSize = effectSize, 
         depLabel = depLabel, rmTerms = rmTerms, bsTerms = bsTerms, ss = ss, spherTests = spherTests, 
         spherCorr = spherCorr, leveneTest = leveneTest, contrasts = contrasts, postHoc = postHoc, 
         postHocCorr = postHocCorr, emMeans = emMeans, emmPlots = emmPlots, emmTables = emmTables, 
         emmWeights = emmWeights, ciWidthEmm = ciWidthEmm, emmPlotData = emmPlotData, 
         emmPlotError = emmPlotError)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("rm", rm, default = list(list(label = "RM Factor 1", levels = list("Level 1", 
         "Level 2"))), template = jmvcore::OptionGroup$new("rm", NULL, elements = list(jmvcore::OptionString$new("label", 
         NULL), jmvcore::OptionArray$new("levels", NULL, template = jmvcore::OptionString$new("levels", 
         NULL)))))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list(label = "intake", levels = c("m o n", "tue", "fri")))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 6. Error: cfa works (@testcfa.R#17)  ────────────────────────────────────────
  not a function
  1: jmv::cfa(data = data, factors = factors, resCov = resCov) at testthat/testcfa.R:17
  2: cfaOptions$new(factors = factors, resCov = resCov, miss = miss, constrain = constrain, 
         estTest = estTest, ci = ci, ciWidth = ciWidth, stdEst = stdEst, factCovEst = factCovEst, 
         factInterceptEst = factInterceptEst, resCovEst = resCovEst, resInterceptEst = resInterceptEst, 
         fitMeasures = fitMeasures, modelTest = modelTest, pathDiagram = pathDiagram, 
         corRes = corRes, hlCorRes = hlCorRes, mi = mi, hlMI = hlMI)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("factors", factors, default = list(list(label = "Factor 1", 
         vars = list())), template = jmvcore::OptionGroup$new("factors", NULL, elements = list(jmvcore::OptionString$new("label", 
         NULL), jmvcore::OptionVariables$new("vars", NULL, suggested = list("continuous"), 
         permitted = list("numeric")))))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list(label = "visual 1", vars = c("x1", "x2", "x3")), list(label = "textual", 
         vars = c("x4", "x5", "x6")), list(label = "speed", vars = c("x7", "x8", "x9")))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 7. Error: descriptives works (@testdescriptives.R#12)  ──────────────────────
  attempt to apply non-function
  1: jmv::descriptives(data, vars = c("w", "y", "z"), splitBy = "x", freq = TRUE, median = TRUE, 
         mode = TRUE, skew = TRUE, kurt = TRUE, quart = TRUE) at testthat/testdescriptives.R:12
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     {
         private$.updateFootnotes()
         private$.footnotes
     })()
  
  ── 8. Error: linreg works (@testlinreg.R#26)  ──────────────────────────────────
  not a function
  1: jmv::linReg(data, dep = !!dep, covs = !!covs, blocks = blocks, stdEst = TRUE) at testthat/testlinreg.R:26
  2: linRegOptions$new(dep = dep, covs = covs, factors = factors, blocks = blocks, refLevels = refLevels, 
         r = r, r2 = r2, r2Adj = r2Adj, aic = aic, bic = bic, rmse = rmse, modelTest = modelTest, 
         anova = anova, ci = ci, ciWidth = ciWidth, stdEst = stdEst, ciStdEst = ciStdEst, 
         ciWidthStdEst = ciWidthStdEst, coefPlot = coefPlot, qqPlot = qqPlot, resPlots = resPlots, 
         durbin = durbin, collin = collin, cooks = cooks, emMeans = emMeans, ciEmm = ciEmm, 
         ciWidthEmm = ciWidthEmm, emmPlots = emmPlots, emmTables = emmTables, emmWeights = emmWeights)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("blocks", blocks, default = list(list()), template = jmvcore::OptionTerms$new("blocks", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list("var1", "var 2", "var3"))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 9. Error: loglinear works (@testloglinear.R#10)  ────────────────────────────
  not a function
  1: jmv::logLinear(data = dat, factors = c("gear", "cyl"), counts = "Freq", blocks = list(list("gear", 
         "cyl", c("gear", "cyl"))), refLevels = list(list(var = "gear", ref = "3"), list(var = "cyl", 
         ref = "4"))) at testthat/testloglinear.R:10
  2: logLinearOptions$new(factors = factors, counts = counts, blocks = blocks, refLevels = refLevels, 
         modelTest = modelTest, dev = dev, aic = aic, bic = bic, pseudoR2 = pseudoR2, 
         omni = omni, ci = ci, ciWidth = ciWidth, RR = RR, ciRR = ciRR, ciWidthRR = ciWidthRR, 
         emMeans = emMeans, ciEmm = ciEmm, ciWidthEmm = ciWidthEmm, emmPlots = emmPlots, 
         emmTables = emmTables, emmWeights = emmWeights)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("blocks", blocks, default = list(list()), template = jmvcore::OptionTerms$new("blocks", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list("gear", "cyl", c("gear", "cyl")))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 10. Error: logregbin works (@testlogregbin.R#14)  ───────────────────────────
  not a function
  1: jmv::logRegBin(data = df, dep = "y", covs = c("x1", "x2"), blocks = list(list("x1", 
         "x2")), refLevels = list(list(var = "y", ref = "0"))) at testthat/testlogregbin.R:14
  2: logRegBinOptions$new(dep = dep, covs = covs, factors = factors, blocks = blocks, 
         refLevels = refLevels, modelTest = modelTest, dev = dev, aic = aic, bic = bic, 
         pseudoR2 = pseudoR2, omni = omni, ci = ci, ciWidth = ciWidth, OR = OR, ciOR = ciOR, 
         ciWidthOR = ciWidthOR, emMeans = emMeans, ciEmm = ciEmm, ciWidthEmm = ciWidthEmm, 
         emmPlots = emmPlots, emmTables = emmTables, emmWeights = emmWeights, class = class, 
         acc = acc, spec = spec, sens = sens, auc = auc, rocPlot = rocPlot, cutOff = cutOff, 
         cutOffPlot = cutOffPlot, collin = collin, boxTidwell = boxTidwell, cooks = cooks)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("blocks", blocks, default = list(list()), template = jmvcore::OptionTerms$new("blocks", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list("x1", "x2"))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 11. Error: logregmulti works (@testlogregmulti.R#13)  ───────────────────────
  not a function
  1: jmv::logRegMulti(data = df, dep = "y", covs = c("x1", "x2"), blocks = list(list("x1", 
         "x2")), refLevels = list(list(var = "y", ref = "A"))) at testthat/testlogregmulti.R:13
  2: logRegMultiOptions$new(dep = dep, covs = covs, factors = factors, blocks = blocks, 
         refLevels = refLevels, modelTest = modelTest, dev = dev, aic = aic, bic = bic, 
         pseudoR2 = pseudoR2, omni = omni, ci = ci, ciWidth = ciWidth, OR = OR, ciOR = ciOR, 
         ciWidthOR = ciWidthOR, emMeans = emMeans, ciEmm = ciEmm, ciWidthEmm = ciWidthEmm, 
         emmPlots = emmPlots, emmTables = emmTables, emmWeights = emmWeights)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("blocks", blocks, default = list(list()), template = jmvcore::OptionTerms$new("blocks", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list("x1", "x2"))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 12. Error: logregord works (@testlogregord.R#13)  ───────────────────────────
  not a function
  1: jmv::logRegOrd(data = df, dep = "y", covs = c("x1", "x2"), blocks = list(list("x1", 
         "x2"))) at testthat/testlogregord.R:13
  2: logRegOrdOptions$new(dep = dep, covs = covs, factors = factors, blocks = blocks, 
         refLevels = refLevels, modelTest = modelTest, dev = dev, aic = aic, bic = bic, 
         pseudoR2 = pseudoR2, omni = omni, thres = thres, ci = ci, ciWidth = ciWidth, 
         OR = OR, ciOR = ciOR, ciWidthOR = ciWidthOR)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("blocks", blocks, default = list(list()), template = jmvcore::OptionTerms$new("blocks", 
         NULL))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list("x1", "x2"))))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 13. Error: proptest2 works (@testproptest2.R#7)  ────────────────────────────
  This results array cannot be converted to a data frame.
  Perhaps you mean to access some of it's children:
      ...[[1]]$asDF
      ...[[2]]$asDF
      ...[[3]]$asDF
  1: jmv::propTest2(dat, vars = "x", areCounts = TRUE) at testthat/testproptest2.R:7
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     {
         children <- paste0("\n    ...[[", 1:3, "]]$asDF", collapse = "")
         stop("This results array cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
             children, call. = FALSE)
     })()
  13: stop("This results array cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
         children, call. = FALSE)
  
  ── 14. Error: proptestn works (@testproptestn.R#8)  ────────────────────────────
  not a function
  1: jmv::propTestN(dat, var = "Eye", counts = "Freq", ratio = c(1, 1, 1, 1)) at testthat/testproptestn.R:8
  2: propTestNOptions$new(var = var, counts = counts, expected = expected, ratio = ratio)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionArray$new("ratio", ratio, template = jmvcore::OptionNumber$new("ratio", 
         NULL, min = 0, default = 1), default = NULL)
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, ...)
  7: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(c(1, 1, 1, 1)))
  8: private$.template$clone(deep = TRUE)
  9: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  10: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ── 15. Error: ttestIS works (@testttestis.R#10)  ───────────────────────────────
  This results group cannot be converted to a data frame.
  Perhaps you mean to access some of it's children:
      ...$desc$asDF
      ...$qq$asDF
  1: ttestIS(data, c("y", "z"), "x", hypothesis = "different", bf = TRUE, welch = TRUE, 
         mann = TRUE, norm = TRUE, eqv = TRUE, meanDiff = TRUE, effectSize = TRUE, ci = TRUE, 
         desc = TRUE) at testthat/testttestis.R:10
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     {
         children <- paste0("\n    ...$", self$itemNames, "$asDF", collapse = "")
         stop("This results group cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
             children, call. = FALSE)
     })()
  13: stop("This results group cannot be converted to a data frame.\n", "Perhaps you mean to access some of it's children:", 
         children, call. = FALSE)
  
  ── 16. Error: ttestOneS works (@testttestones.R#12)  ───────────────────────────
  $ operator is invalid for atomic vectors
  1: ttestOneS(data, c("y", "z", "w"), testValue = 0.5, hypothesis = "dt", wilcox = TRUE, 
         meanDiff = TRUE, effectSize = TRUE, ci = TRUE, desc = TRUE) at testthat/testttestones.R:12
  2: analysis$run()
  3: self$init()
  4: try({
         if (private$.status != "none") 
             return()
         if (!self$options$requiresData) {
         }
         else if (is.null(private$.data)) {
             private$.data <- self$readDataset(TRUE)
             private$.dataProvided <- FALSE
         }
         else {
             if (!is.data.frame(private$.data)) 
                 reject("Argument 'data' must be a data frame")
             private$.data <- select(private$.data, self$options$varsRequired)
         }
         self$options$check(checkValues = TRUE)
         self$results$.update()
         self$options$check(checkVars = TRUE)
         private$.init()
         self$options$check(checkData = TRUE)
     }, silent = TRUE)
  5: eval(expr)
  6: self$results$.update()
  7: item$.update()
  8: self$.createItem(newKey, i)
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: as.list.environment(old_slice$binding, all.names = TRUE)
  12: (function () 
     {
         if (is.null(private$.plot)) 
             private$.plot <- self$analysis$.createPlotObject(funName = private$.renderFun, 
                 image = self)
         return(private$.plot)
     })()
  
  ── 17. Error: ttestPS works (@testttestps.R#15)  ───────────────────────────────
  not a function
  1: ttestPS(data, pairs, hypothesis = "different", bf = TRUE, wilcoxon = TRUE, meanDiff = TRUE, 
         effectSize = TRUE, ci = TRUE, desc = TRUE) at testthat/testttestps.R:15
  2: ttestPSOptions$new(pairs = pairs, students = students, bf = bf, bfPrior = bfPrior, 
         wilcoxon = wilcoxon, hypothesis = hypothesis, norm = norm, qq = qq, meanDiff = meanDiff, 
         effectSize = effectSize, ci = ci, ciWidth = ciWidth, desc = desc, plots = plots, 
         miss = miss)
  3: .subset2(public_bind_env, "initialize")(...)
  4: jmvcore::OptionPairs$new("pairs", pairs, suggested = list("continuous"), permitted = list("numeric"))
  5: .subset2(public_bind_env, "initialize")(...)
  6: super$initialize(name, value, template = OptionGroup$new("pairs", NULL, elements = list(OptionVariable$new("i1", 
         NULL, suggested = suggested, permitted = permitted), OptionVariable$new("i2", 
         NULL, suggested = suggested, permitted = permitted))), ...)
  7: super$initialize(name, value, ...)
  8: (function (values) 
     {
         if (missing(values)) {
             if (private$.isNull) 
                 return(NULL)
             values <- list()
             for (o in private$.elements) values[length(values) + 1] <- list(o$value)
             if ("OptionString" %in% class(private$.template) || "OptionInt" %in% class(private$.template) || 
                 "OptionNumber" %in% class(private$.template)) 
                 values <- unlist(values)
             return(values)
         }
         private$.elements <- list()
         if (is.null(values)) {
             private$.isNull <- TRUE
         }
         else {
             private$.isNull <- FALSE
             for (value in values) {
                 clone <- private$.template$clone(deep = TRUE)
                 clone$value <- value
                 private$.elements[[length(private$.elements) + 1]] <- clone
             }
         }
     })(base::quote(list(list(i1 = "z", i2 = "w"))))
  9: private$.template$clone(deep = TRUE)
  10: copy_slice(old[[i]], new[[i]], old_new_enclosing_pairs[seq.int(i, length(old))], 
         (i == 1))
  11: makeActiveBinding(name, active_copies[[name]], new_slice$binding)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 54 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 17 ]
  1. Error: ancova works (@testancova.R#11) 
  2. Error: anova works (@testanova.R#8) 
  3. Error: anovanp works (@testanovanp.R#10) 
  4. Error: anovaonew works (@testanovaonew.R#11) 
  5. Error: anovarm works (@testanovarm.R#37) 
  6. Error: cfa works (@testcfa.R#17) 
  7. Error: descriptives works (@testdescriptives.R#12) 
  8. Error: linreg works (@testlinreg.R#26) 
  9. Error: loglinear works (@testloglinear.R#10) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted