Handle JASP files without data gracefully (#65)

Author: FBartos

R/dataset.R

@@ -73,7 +73,8 @@ extractDatasetFromJASPFile <- function(jaspFile, dataSetIndex = 1L) {
   ))
 
   if (nrow(columns) == 0) {
-    stop("No columns found for dataSet ", dataSetIndex)
+    # No data in this JASP file - return NULL
+    return(NULL)
   }
 
   # Get the labels table - include originalValueJson for value reconstruction
@@ -82,7 +83,8 @@ extractDatasetFromJASPFile <- function(jaspFile, dataSetIndex = 1L) {
   # Get the data from DataSet_N table
   dataTableName <- paste0("DataSet_", dataSetIndex)
   if (!dataTableName %in% DBI::dbListTables(con)) {
-    stop("Data table '", dataTableName, "' not found in the database")
+    # No data table in this JASP file - return NULL
+    return(NULL)
   }
 
   # Build a query that casts DBL columns to TEXT to preserve nan/inf values
@@ -544,6 +546,15 @@ devcat <- function(..., file = "", sep = " ", fill = FALSE, labels = NULL,
 #' @export
 encodeOptionsAndDataset <- function(options, dataset) {
 
+  # Handle NULL dataset (analysis doesn't require data)
+  if (is.null(dataset)) {
+    return(list(
+      options     = options,
+      dataset     = NULL,
+      encodingMap = data.frame(original = character(0), encoded = character(0), type = character(0))
+    ))
+  }
+
   # Load the dataset if it's a path or name
   dataset <- loadCorrectDataset(dataset)
   allColumnNames <- colnames(dataset)

tests/JASPFiles/no_data_summary_stats.jasp

@@ -81,3 +81,20 @@ test_that("analysisOptions flattens deeply nested types/value structures", {
   expect_true(is.list(opts$`variables.types`[[1]]$coefficientAlpha))
   expect_equal(length(opts$`variables.types`[[1]]$coefficientAlpha), 0)
 })
+
+test_that("analysisOptions extracts options from no-data JASP file", {
+
+  jaspFile <- file.path(testthat::test_path(), "..", "JASPFiles",
+                        "no_data_summary_stats.jasp")
+
+  skip_if_not(file.exists(jaspFile), "No-data JASP file not found")
+
+  # Should be able to extract options without error
+  opts <- jaspTools::analysisOptions(jaspFile)
+
+  # Should return a valid options list
+  expect_true(is.list(opts))
+
+  # Should have an analysisName attribute
+  expect_true(!is.null(attr(opts, "analysisName")))
+})

tests/testthat/test-analysisOptions.R

@@ -183,6 +183,62 @@ test_that("encodeOptionsAndDataset handles empty types gracefully", {
   expect_equal(nrow(result$encodingMap), 0)
 })
 
+test_that("encodeOptionsAndDataset handles NULL dataset gracefully", {
+
+  # Create a simple options list (typical for summary stats analyses without data)
+  opts <- list(
+    n = 100,
+    mean = 50,
+    sd = 10,
+    `.meta` = list()
+  )
+
+  # Should not warn or error when dataset is NULL
+  result <- jaspTools:::encodeOptionsAndDataset(opts, NULL)
+
+  # Should return original options unchanged
+  expect_equal(result$options, opts)
+
+  # Dataset should remain NULL
+  expect_null(result$dataset)
+
+  # Encoding map should be empty
+  expect_equal(nrow(result$encodingMap), 0)
+  expect_true(is.data.frame(result$encodingMap))
+  expect_true(all(c("original", "encoded", "type") %in% names(result$encodingMap)))
+})
+
+test_that("encodeOptionsAndDataset works with no-data JASP file", {
+
+  jaspFile <- file.path(testthat::test_path(), "..", "JASPFiles",
+                        "no_data_summary_stats.jasp")
+
+  skip_if_not(file.exists(jaspFile), "No-data JASP file not found")
+
+  # Extract options and dataset
+  opts <- jaspTools::analysisOptions(jaspFile)
+  dataset <- jaspTools::extractDatasetFromJASPFile(jaspFile)
+
+  # Dataset should be NULL
+  expect_null(dataset)
+
+  # Encode should work without errors
+  result <- jaspTools:::encodeOptionsAndDataset(opts, dataset)
+
+  # Result structure should be correct
+  expect_true(is.list(result))
+  expect_true(all(c("options", "dataset", "encodingMap") %in% names(result)))
+
+  # Options should be unchanged (since no dataset columns to encode)
+  expect_equal(result$options, opts)
+
+  # Dataset should remain NULL
+  expect_null(result$dataset)
+
+  # Encoding map should be empty
+  expect_equal(nrow(result$encodingMap), 0)
+})
+
 test_that("encodeOptionsAndDataset correctly encodes nested option structures", {
 
   jaspFile <- file.path(testthat::test_path(), "..", "JASPFiles", "Effectiveness_of_the_BCG_Vaccine_Against_Tuberculosis.jasp")

tests/testthat/test-encodeOptionsAndDataset.R

@@ -195,3 +195,16 @@ test_that("extractDatasetFromJASPFile works for BCG Vaccine dataset", {
     }
   }
 })
+
+test_that("extractDatasetFromJASPFile returns NULL for JASP files without data", {
+
+  jaspFile <- file.path(testthat::test_path(), "..", "JASPFiles",
+                        "no_data_summary_stats.jasp")
+
+  skip_if_not(file.exists(jaspFile), "No-data JASP file not found")
+
+  # Should return NULL instead of error
+  result <- extractDatasetFromJASPFile(jaspFile)
+
+  expect_null(result, info = "JASP files without data should return NULL")
+})