tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

msa

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-05 17:08:04 +01:00
parent fd02eb66bd
commit 75ec1419d7
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
msa/global.R
View file

@ -43,11 +43,11 @@ load_target_globals=function(target){
cat(paste0("Reloading Target: ", target)) cat(paste0("Reloading Target: ", target))
source(paste0(load_dir, "LSHTM_analysis/config/", target, ".R")) # load per-target config file 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_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("~/git/Misc/shiny_dashboard/data/",target,"-merged_df2.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("~/git/Misc/shiny_dashboard/data/",target,"-corr_df_m3_f.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("~/git/Misc/shiny_dashboard/data/",target,"-lin_lf.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("~/git/Misc/shiny_dashboard/data/",target,"-lin_wf.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( lapply(
c( c(
"duet", "duet",
@ -348,8 +348,8 @@ if(interactive()){
sorted_df = sorted_df %>% arrange(pos_count) sorted_df = sorted_df %>% arrange(pos_count)
# #
outdir = paste0("~/git/Data/", drug, '/output/') outdir = paste0(load_dir, "Data/", drug, '/output/')
indir = paste0("~/git/Data/", drug , "/input/") indir = paste0(load_dir, "Data/", drug , "/input/")
# #
# source("~/git/LSHTM_analysis/scripts/plotting/logo_data_msa.R") # probably unnecessary... # source("~/git/LSHTM_analysis/scripts/plotting/logo_data_msa.R") # probably unnecessary...