From 88024bd3438c10991bd7067782b42af2a637aab6 Mon Sep 17 00:00:00 2001 From: Louis Date: Tue, 24 Feb 2026 09:43:28 +0100 Subject: [PATCH] The real fix on save_dir creation --- blockmodels_correct_sampling_effort.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/blockmodels_correct_sampling_effort.R b/blockmodels_correct_sampling_effort.R index 0f6dc76..38459b9 100644 --- a/blockmodels_correct_sampling_effort.R +++ b/blockmodels_correct_sampling_effort.R @@ -23,11 +23,11 @@ the_data <- import_biom(here("data", author, paste0(author, ".biom"))) epoch <- as.integer(Sys.time()) level <- 2 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_path)) { - dir.create(save_path, recursive = TRUE) +if (!dir.exists(save_dir)) { + dir.create(save_dir, recursive = TRUE) } per_taxa_networks <- collapse_otu_at_taxo(the_data)