diff --git a/msa/global.R b/msa/global.R index 1daa3ea..c4c8907 100644 --- a/msa/global.R +++ b/msa/global.R @@ -43,11 +43,11 @@ load_target_globals=function(target){ cat(paste0("Reloading Target: ", target)) source(paste0(load_dir, "LSHTM_analysis/config/", target, ".R")) # load per-target config file - invisible(assign(paste0(target, "_merged_df3"), read.csv(paste0("~/git/Misc/shiny_dashboard/data/",target,"-merged_df3.csv")), envir = .GlobalEnv)) - invisible(assign(paste0(target, "_merged_df2"), read.csv(paste0("~/git/Misc/shiny_dashboard/data/",target,"-merged_df2.csv")), envir = .GlobalEnv)) - invisible(assign(paste0(target, "_corr_df_m3_f"), read.csv(paste0("~/git/Misc/shiny_dashboard/data/",target,"-corr_df_m3_f.csv")), envir = .GlobalEnv)) - invisible(assign(paste0(target, "_lin_lf"), read.csv(paste0("~/git/Misc/shiny_dashboard/data/",target,"-lin_lf.csv")), envir = .GlobalEnv)) - invisible(assign(paste0(target, "_lin_wf"), read.csv(paste0("~/git/Misc/shiny_dashboard/data/",target,"-lin_wf.csv")), envir = .GlobalEnv)) + invisible(assign(paste0(target, "_merged_df3"), read.csv(paste0(load_dir, "Misc/shiny_dashboard/data/",target,"-merged_df3.csv")), envir = .GlobalEnv)) + invisible(assign(paste0(target, "_merged_df2"), read.csv(paste0(load_dir, "Misc/shiny_dashboard/data/",target,"-merged_df2.csv")), envir = .GlobalEnv)) + invisible(assign(paste0(target, "_corr_df_m3_f"), read.csv(paste0(load_dir, "Misc/shiny_dashboard/data/",target,"-corr_df_m3_f.csv")), envir = .GlobalEnv)) + invisible(assign(paste0(target, "_lin_lf"), read.csv(paste0(load_dir, "Misc/shiny_dashboard/data/",target,"-lin_lf.csv")), envir = .GlobalEnv)) + invisible(assign(paste0(target, "_lin_wf"), read.csv(paste0(load_dir, "Misc/shiny_dashboard/data/",target,"-lin_wf.csv")), envir = .GlobalEnv)) lapply( c( "duet", @@ -348,8 +348,8 @@ if(interactive()){ sorted_df = sorted_df %>% arrange(pos_count) # - outdir = paste0("~/git/Data/", drug, '/output/') - indir = paste0("~/git/Data/", drug , "/input/") + outdir = paste0(load_dir, "Data/", drug, '/output/') + indir = paste0(load_dir, "Data/", drug , "/input/") # # source("~/git/LSHTM_analysis/scripts/plotting/logo_data_msa.R") # probably unnecessary...