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

The real fix on save_dir creation

Browse source
This commit is contained in:
Louis 2026-02-24 09:43:28 +01:00
parent a8bdeecb3a
commit 88024bd343
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
blockmodels_correct_sampling_effort.R
View file

@ -23,11 +23,11 @@ the_data <- import_biom(here("data", author, paste0(author, ".biom")))
epoch <- as.integer(Sys.time()) epoch <- as.integer(Sys.time())
level <- 2 level <- 2
message("At level: ", level, " starting at: ", epoch) message("At level: ", level, " starting at: ", epoch)
save_dir <- here("results", "seq-effort")
save_path <- here(save_dir, paste0(author, "_", level, "_", epoch, ".Rds"))
save_path <- here("results", "seq-effort", paste0(author, "_", level, "_", epoch, ".Rds")) if (!dir.exists(save_dir)) {
dir.create(save_dir, recursive = TRUE)
if (!dir.exists(save_path)) {
dir.create(save_path, recursive = TRUE)
} }
per_taxa_networks <- collapse_otu_at_taxo(the_data) per_taxa_networks <- collapse_otu_at_taxo(the_data)