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

fixed cmd running script problem for logo plots

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-24 12:12:36 +01:00
parent 552c5e77aa
commit ca2315523d
14 changed files with 206 additions and 748 deletions
Download patch file Download diff file Expand all files Collapse all files

24
scripts/functions/test_combining_dfs_plotting.R
View file

@ -41,9 +41,7 @@ drug = 'streptomycin'
import_dirs(drug_name = drug, gene_name = gene)
#-------------------------------
# test function: plotting_data()
#-------------------------------
#============================
# Input 1: plotting_data()
#============================
@ -56,8 +54,14 @@ if (!exists("infile_params") && exists("gene")){
}
mcsm_comb_data = read.csv(infile_params, header = T)
pd_df = plotting_data(df = mcsm_comb_data, lig_dist_cutoff = 10)
my_df_u = pd_df[[2]]
#-------------------------------
# call function: plotting_data()
#-------------------------------
pd_df = plotting_data(df = mcsm_comb_data
, ligand_dist_colname = 'ligand_distance'
, lig_dist_cutoff = 10
my_df_u = pd_df[[2]]
#======================================
# Input 2: read <gene>_meta data.csv
@ -74,7 +78,10 @@ cat("\nReading meta data file:", infile_metadata)
gene_metadata <- read.csv(infile_metadata
, stringsAsFactors = F
, header = T)
#-----------------------------------------
# test function: combining_dfs_plotting()
#-----------------------------------------
all_plot_dfs = combining_dfs_plotting(my_df_u
, gene_metadata
, lig_dist_colname = 'ligand_distance'
@ -87,4 +94,7 @@ merged_df3_comp = all_plot_dfs[[4]]
merged_df2_lig = all_plot_dfs[[5]]
merged_df3_lig = all_plot_dfs[[6]]
merged_df2_comp_lig = all_plot_dfs[[7]]
merged_df3_comp_lig = all_plot_dfs[[8]]
merged_df3_comp_lig = all_plot_dfs[[8]]
########################################################################
# End of script
########################################################################