Added several objects saved from the running shiny app

ipb-halle · Mar 11, 2024 · 6250b40 · 6250b40
1 parent 625e593
commit 6250b40
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 3 deletions.
diff --git a/inst/extdata/testdata/clusterDataList.Rdata b/inst/extdata/testdata/clusterDataList.Rdata
diff --git a/inst/extdata/testdata/filterObj.Rdata b/inst/extdata/testdata/filterObj.Rdata
diff --git a/inst/extdata/testdata/hcaFilter.Rdata b/inst/extdata/testdata/hcaFilter.Rdata
diff --git a/inst/extdata/testdata/readClusterDataFromProjectFile.Rdata b/inst/extdata/testdata/readClusterDataFromProjectFile.Rdata
diff --git a/vignettes/discoveringregulatedmetabolitefamilies.Rmd b/vignettes/discoveringregulatedmetabolitefamilies.Rmd
@@ -62,7 +62,8 @@ We can filter the data to remove low quality data points
 PCA on MS1 in Figure \@ref(fig:pca). 
 
 ```{r pca, fig.cap="PCA of MS1.", echo=FALSE}
-  load("/home/sneumann/src/MetFamily/inst/extdata/testdata/filterObj.Rdata")
+fileName <- system.file("extdata/testdata/filterObj.Rdata", package = "MetFamily")
+load(fileName) 
 
 pca <- calculatePCA(dataList=project, 
                          filterObj=filterObj, 
@@ -131,8 +132,11 @@ p <- calcPlotDendrogram_plotly(dataList=project,
   heatmapProportion)
 }
 
-load("/home/sneumann/src/MetFamily/inst/extdata/testdata/clusterDataList.Rdata")
-load("/home/sneumann/src/MetFamily/inst/extdata/testdata/hcaFilter.Rdata")
+fileName <- system.file("extdata/testdata/clusterDataList.Rdata", package = "MetFamily")
+load(fileName) 
+fileName <- system.file("extdata/testdata/hcaFilter.Rdata", package = "MetFamily")
+load(fileName) 
+
 returnObj <- calcPlotDendrogram(dataList=project, 
                                 filter=filter, 
                                 clusterDataList=clusterDataList,