From 5c8f859748547b31ca115fe7a384349ce7a54e78 Mon Sep 17 00:00:00 2001 From: Natan Yusupov Date: Fri, 12 Apr 2024 10:52:14 +0200 Subject: [PATCH] bug fix saving script 10 --- scripts/10_correction_batch_effects_unfiltered.Rmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/10_correction_batch_effects_unfiltered.Rmd b/scripts/10_correction_batch_effects_unfiltered.Rmd index 1fadb42..7a86d94 100644 --- a/scripts/10_correction_batch_effects_unfiltered.Rmd +++ b/scripts/10_correction_batch_effects_unfiltered.Rmd @@ -577,7 +577,7 @@ if (changing_status == "changed") { save(Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet, file = paste0(user_choices$project_name, "/processed_data/Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet.Rdata")) RGSet_clean_unfiltered_final <- RGSet_clean[ ,(colnames(RGSet_clean) %in% sampleNames(Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet))] - save(RGSet_clean_unfiltered_final, file = "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata") + save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata")) } } else { if (all.equal(colnames(Betas_clean_unfiltered_quantile_bmiq),rownames(PhenoData_clean))){ @@ -588,7 +588,7 @@ if (changing_status == "changed") { save(Betas_clean_unfiltered_quantile_bmiq_ExprSet, file = paste0(user_choices$project_name, "/processed_data/Betas_clean_unfiltered_quantile_bmiq_ExprSet.Rdata")) RGSet_clean_unfiltered_final <- RGSet_clean[ ,(colnames(RGSet_clean) %in% sampleNames(Betas_clean_unfiltered_quantile_bmiq_ExprSet))] - save(RGSet_clean_unfiltered_final, file = "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata") + save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata")) } } ```