fixes for empty dataset

Author: vandenman

R/dataset.R

@@ -2,7 +2,7 @@ loadCorrectDataset <- function(x) {
   if (is.matrix(x) || is.data.frame(x)) {
     return(x)
   } else if (is.character(x)) {
-    if (! endsWith(x, ".csv")) {
+    if (!endsWith(x, ".csv")) {
       x <- paste0(x, ".csv")
     }
 
@@ -50,6 +50,11 @@ findAllColumnNamesInOptions <- function(options, allColumnNames) {
 
 preloadDataset <- function(datasetPathOrObject, options) {
 
+  if (is.null(datasetPathOrObject)) {
+    .setInternal("preloadedDataset", data.frame())
+    return()
+  }
+
   dataset <- loadCorrectDataset(datasetPathOrObject)
 
   # repair any names like "", which cause false positives in findAllColumnNamesAndTypes

R/run.R

@@ -54,7 +54,7 @@
 #'
 #'
 #' @export runAnalysis
-runAnalysis <- function(name, dataset, options, view = TRUE, quiet = FALSE, makeTests = FALSE) {
+runAnalysis <- function(name, dataset = NULL, options, view = TRUE, quiet = FALSE, makeTests = FALSE) {
   if (is.list(options) && is.null(names(options)) && any(names(unlist(lapply(options, attributes))) == "analysisName"))
     stop("The provided list of options is not named. Did you mean to index in the options list (e.g., options[[1]])?")