Fix for empty column names (#49)

jasp-stats · Oct 9, 2024 · 15aefc3 · 15aefc3
1 parent b25e6c0
commit 15aefc3
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/dataset.R b/R/dataset.R
@@ -51,6 +51,18 @@ findAllColumnNamesInOptions <- function(options, allColumnNames) {
 preloadDataset <- function(datasetPathOrObject, options) {
 
   dataset <- loadCorrectDataset(datasetPathOrObject)
+
+  # repair any names like "", which cause false positives in findAllColumnNamesAndTypes
+  # because empty options are often ""
+  cnms <- colnames(dataset)
+  if (any(cnms == "")) {
+
+    bad <- which(cnms == "")
+    newCnms <- make.names(cnms)
+    cnms[bad] <- newCnms[bad]
+    colnames(dataset) <- cnms
+
+  }
   # columns <- findAllColumnNamesInOptions(options, colnames(dataset))
   temp    <- findAllColumnNamesAndTypes(options, colnames(dataset))