add readFullDataset for jasp-stats/INTERNAL-jasp#2766 (comment)

Then we can avoid hacky solutions

Author: JorisGoosen

NAMESPACE

@@ -48,6 +48,7 @@ export(.parseRCodeInOptions)
 export(.quitAnalysis)
 export(.readDataSetHeader)
 export(.readDataSetToEnd)
+export(.readFullDataset)
 export(.recodeBFtype)
 export(.setSeedJASP)
 export(.shortToLong)
@@ -135,8 +136,8 @@ export(rowVariance)
 export(rowVarianceNaRm)
 export(runJaspResults)
 export(runWrappedAnalysis)
-export(storeDataSet)
 export(startProgressbar)
+export(storeDataSet)
 export(tDist)
 export(unifDist)
 export(unv)

R/common.R

@@ -390,6 +390,17 @@ readDataSetByVariableTypes <- function(options, keys, exclude.na.listwise = NULL
   dataset
 }
 
+#' @export
+.readFullDataset <- function(exclude.na.listwise=NULL, ...) {
+
+  exclude.na.listwise  <- .readDataSetCleanNAs(exclude.na.listwise)
+
+  dataset <- .fromRCPP(".readFullDatasetToEnd")
+  dataset <- .excludeNaListwise(dataset, exclude.na.listwise)
+
+  dataset
+}
+
 #' @export
 .readDataSetHeader <- function(columns=NULL, columns.as.numeric=NULL, columns.as.ordinal=NULL, columns.as.factor=NULL, all.columns=FALSE, ...) {