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

30
load-europe.R
View file

@ -1,14 +1,18 @@
library(MicroBioMap) if (!file.exists("data/hmc-phyloseq-europe.Rds")) {
library(phyloseq) library(MicroBioMap)
library(mia) library(phyloseq)
library(mia)
cpd <- getCompendium() cpd <- getCompendium()
cpd_phyloseq <- convertToPhyloseq(x = cpd) cpd_phyloseq <- convertToPhyloseq(x = cpd)
sample_data(cpd_phyloseq)$geo_loc_name |> grepl(pattern = "europe") sample_data(cpd_phyloseq)$geo_loc_name |> grepl(pattern = "europe")
rm(cpd) rm(cpd)
gc() gc()
sample_data(cpd_phyloseq) sample_data(cpd_phyloseq)
cpd_phyloseq_europe <- subset_samples(cpd_phyloseq, grepl("europe", geo_loc_name)) cpd_phyloseq_europe <- subset_samples(cpd_phyloseq, grepl("europe", geo_loc_name))
rm(cpd_phyloseq) rm(cpd_phyloseq)
gc() gc()
saveRDS(cpd_phyloseq_europe, "data/hmc-phyloseq-europe.Rds") saveRDS(cpd_phyloseq_europe, "data/hmc-phyloseq-europe.Rds")
} else {
cpd_phyloseq_europe <- readRDS("data/hmc-phyloseq-europe.Rds")
}