improve data reading

jasp-stats · Nov 19, 2024 · 3cd14c0 · 3cd14c0
1 parent 7a48bf3
commit 3cd14c0
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 1 deletion.
diff --git a/R/classicalmetaanalysismultilevelmultivariate.R b/R/classicalmetaanalysismultilevelmultivariate.R
@@ -183,7 +183,7 @@ ClassicalMetaAnalysisMultilevelMultivariate <- function(jaspResults, dataset = N
           # try regular csv loading
           if (tolower(gsub(" ", "", distanceMatrixFileName)) == "examplemaire2019distancematrix") {
             # allow to load example data for data library
-            data("exampleMaire2019DistanceMatrix")
+            distanceMatrix <- .mammGetExampleMaire2019DistanceMatrix()
           }else{
             distanceMatrix <- try(as.matrix(read.csv(file = distanceMatrixFileName, row.names = 1)))
           }

diff --git a/R/data.R b/R/data.R
@@ -21,3 +21,8 @@
 #'
 #' @return A distance matrix
 "exampleMaire2019DistanceMatrix"
+
+.mammGetExampleMaire2019DistanceMatrix <- function() {
+  data("exampleMaire2019DistanceMatrix")
+  return(exampleMaire2019DistanceMatrix)
+}
diff --git a/data/exampleMaire2019DistanceMatrix.RData b/data/exampleMaire2019DistanceMatrix.RData
diff --git a/data/exampleMaire2019DistanceMatrix.rda b/data/exampleMaire2019DistanceMatrix.rda