tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

minor tweak to plotting_globals.R to make gene_match a global var

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-11 11:21:20 +01:00
parent f6259aa517
commit a2431b59e5
2 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
scripts/functions/plotting_globals.R
View file

@ -11,8 +11,6 @@
# output: dir names for input and output files # output: dir names for input and output files
import_dirs <- function(drug, gene) { import_dirs <- function(drug, gene) {
gene_match = paste0(gene,"_p.")
cat(gene_match)
#============================ #============================
# directories and variables # directories and variables
@ -26,6 +24,7 @@ import_dirs <- function(drug, gene) {
dr_muts_col <<- paste0('dr_mutations_', drug) dr_muts_col <<- paste0('dr_mutations_', drug)
other_muts_col <<- paste0('other_mutations_', drug) other_muts_col <<- paste0('other_mutations_', drug)
resistance_col <<- "drtype" resistance_col <<- "drtype"
gene_match <<- paste0(gene,"_p.")
} }

2
scripts/plotting/basic_barplots.R
View file

@ -8,7 +8,6 @@
setwd("~/git/LSHTM_analysis/scripts/plotting") setwd("~/git/LSHTM_analysis/scripts/plotting")
getwd() getwd()
# load libraries # load libraries
#source("Header_TT.R") #source("Header_TT.R")
library(ggplot2) library(ggplot2)
@ -96,6 +95,7 @@ cat(paste0("Directories imported:"
cat(paste0("\nVariables imported:" cat(paste0("\nVariables imported:"
, "\ndrug:" , drug , "\ndrug:" , drug
, "\ngene:" , gene , "\ngene:" , gene
, "\ngene match:" , gene_match
, "\n")) , "\n"))
#======================================================================= #=======================================================================
#======= #=======