fix reading options from jasp files (#53)

Author: vandenman

R/options.R

@@ -163,7 +163,7 @@ analysisOptionsFromJASPfile <- function(file) {
   options <- vector("list", length(analyses))
   for (i in seq_along(analyses)) {
     analysis <- analyses[[i]]
-    options[[i]] <- analysis[["options"]]
+    options[[i]] <- fixOptionsForVariableTypes(analysis[["options"]])
     attr(options[[i]], "analysisName") <- analysis[["name"]]
   }
 
@@ -173,6 +173,39 @@ analysisOptionsFromJASPfile <- function(file) {
   return(options)
 }
 
+fixOptionsForVariableTypes <- function(options) {
+
+  # jasp does this internally before passing the options to R.
+  # however, when reading the options from a file this hasn't been done yet
+
+  meta <- options[[".meta"]]
+  if (is.null(meta))
+    return(options)
+
+  nms2fix <- names(vapply(meta, \(x) isTRUE(x[["hasTypes"]]), logical(1L)))
+
+  subOptionNeedsFixing <- function(subOption) {
+    # all the checks I could think of
+    is.list(subOption) &&
+      all(c("types", "value") %in% names(subOption)) &&
+      length(subOption[["types"]]) == length(subOption[["value"]]) &&
+      is.character(subOption[["types"]]) &&
+      is.character(subOption[["value"]])
+  }
+
+  for (nm in nms2fix) {
+    if (subOptionNeedsFixing(options[[nm]])) {
+      options[[paste0(nm, ".types")]] <- options[[nm]][["types"]]
+      options[[nm]]                   <- options[[nm]][["value"]]
+    }
+  }
+
+  return(options)
+
+}
+
+
+
 parseDescriptionQmlFromAnalysisName <- function(analysisName) {
 
   modulePath <- getModulePathFromRFunction(analysisName)