Commit d84111e6 authored by Lena Hersemann's avatar Lena Hersemann

added the prefix ngs_tools_ to the filenames of saved ngs_tools scripts

parent 05af08e7
......@@ -1019,7 +1019,7 @@ pheatmap(mat, annotation_col = column2rownames(exDesign, "replicate") %>% select
writeLines(capture.output(devtools::session_info()), ".sessionInfo.txt")
# save copy of the used featcounts_deseq_mf.R script
system("cp ${NGS_TOOLS}/dge_workflow/featcounts_deseq_mf.R ./.featcounts_deseq_mf_$(date +%Y%m%d_%H%M).R")
system("cp ${NGS_TOOLS}/dge_workflow/featcounts_deseq_mf.R ./.ngs_tools_featcounts_deseq_mf_$(date +%Y%m%d_%H%M).R")
#################################
......
......@@ -638,7 +638,7 @@ write_tsv(imputeData, path=add_prefix("intens_imputed.txt"))
#-----------------------------------------------------------------------------------------------------------------------
# save copy of the used ms_data_prep.R script
system("cp ${NGS_TOOLS}/ms_workflow/ms_data_prep.R ./.ms_data_prep_$(date +%Y%m%d_%H%M).R")
system("cp ${NGS_TOOLS}/ms_workflow/ms_data_prep.R ./.ngs_tools_ms_data_prep_$(date +%Y%m%d_%H%M).R")
# get R version and package infos
writeLines(capture.output(devtools::session_info()), ".sessionInfo.txt")
......
......@@ -615,7 +615,7 @@ left_join(voom_before %>% rename(x_voom = x, y_voom = y),
#-----------------------------------------------------------------------------------------------------------------------
# save copy of the used ms_limma.R script
system("cp ${NGS_TOOLS}/ms_workflow/ms_limma.R ./.ms_limma_$(date +%Y%m%d_%H%M).R")
system("cp ${NGS_TOOLS}/ms_workflow/ms_limma.R ./.ngs_tools_ms_limma_$(date +%Y%m%d_%H%M).R")
# get R version and package infos
writeLines(capture.output(devtools::session_info()), ".sessionInfo.txt")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment