remove duplicated variables with preloadData

jasp-stats · Nov 6, 2024 · c4eda75 · c4eda75
1 parent eb0224a
commit c4eda75
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/dataset.R b/R/dataset.R
@@ -74,6 +74,11 @@ preloadDataset <- function(datasetPathOrObject, options) {
   variables <- temp[["variables"]]
   types     <- temp[["types"]]
 
+  # remove any duplicated variables for now
+  nonDuplicatedIdx <- !duplicated(variables)
+  variables <- variables[nonDuplicatedIdx]
+  types     <- types[nonDuplicatedIdx]
+
   dataset <- convertToTypes(dataset[variables], types, datasetPathOrObject)
 
   .setInternal("preloadedDataset", dataset)