tests/testthat/helper-anova.R

In jasp-stats/jaspAnova: ANOVA Module for JASP

initClassicalAnovaOptions <- function(analysis = c("Anova", "Ancova", "AnovaRepeatedMeasures")) {
  analysis <- match.arg(analysis)
  options <- c(
    jaspTools::analysisOptions(analysis),
    classicalAnovaCommonOptions()
  )

  return(options)
}

classicalAnovaCommonOptions <- function() {
  path <- testthat::test_path("..", "..", "inst", "qml", "common", "classical")
  files <- list.files(path, full.names = TRUE)
  files <- c(
    files,
    testthat::test_path("..", "..", "inst", "qml", "common", "RainCloudPlots.qml")
  )
  options <- lapply(files, jaspTools:::readQML) |>
    lapply(function(x) {x$plotWidth <- NULL; x$plotHeight <- NULL; return(x)}) |>
    (function(x) { do.call(c, x)})()

  return(options)
}