From 15aefc36a9add2b7772529bcdd4b9a7271c4f8e4 Mon Sep 17 00:00:00 2001
From: Don van den Bergh <donvdbergh@hotmail.com>
Date: Thu, 10 Oct 2024 00:57:29 +0200
Subject: [PATCH] Fix for empty column names (#49)

---
 R/dataset.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/R/dataset.R b/R/dataset.R
index 206b0ce..cef3c9c 100644
--- 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))