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

added functions dir for further tidying and tested this with ind scripts for stability

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-09 18:13:18 +01:00
parent 912a439589
commit cbb3749a21
6 changed files with 108 additions and 107 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/plotting/myshiny/bp_app.R
View file

@ -17,7 +17,7 @@ library(dplyr)
# load functions
source("../plotting_globals.R")
source("../plotting_data.R")
source("my_stability_bp.R")
source("../functions/stability_count_bp.R")
###################################
# command line args :
@ -133,7 +133,7 @@ server <- function(input, output) {output$distPlot <- renderPlot({
p_title = "Sites < 10 Ang of ligand"}
# plot the basic barplots
my_stability_count(plotdf = data_plot
stability_count_bp(plotdf = data_plot
, df_colname = stability_colname,
, leg_title = leg_name
, bp_plot_title = p_title)