polarolouis/human-microbiome-compendium
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Perform file existence check in load script

Browse source
This commit is contained in:
Louis 2025-10-13 13:41:05 +02:00
parent ad91ae0ef1
commit 5cf922d69f
1 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
load-europe.R
View file

@ -1,3 +1,4 @@
if (!file.exists("data/hmc-phyloseq-europe.Rds")) {
library(MicroBioMap)
library(phyloseq)
library(mia)
@ -12,3 +13,6 @@ cpd_phyloseq_europe <- subset_samples(cpd_phyloseq, grepl("europe", geo_loc_name
rm(cpd_phyloseq)
gc()
saveRDS(cpd_phyloseq_europe, "data/hmc-phyloseq-europe.Rds")
} else {
cpd_phyloseq_europe <- readRDS("data/hmc-phyloseq-europe.Rds")
}