added placeholder defaults for functions in R to make sure that R shiny layput works with a data set for meeting tomorrow

scripts/functions/tests/test_bp.R

@@ -5,19 +5,18 @@ getwd()
 #===========================================
 # load functions, data, dirs, hardocded vars
 # that will be used in testing the functions
+#drug = "streptomycin"
+#gene = "gid"
+#source("plotting_data.R")
+#infile = paste0("~/git/Data/", drug, "/output/", gene, "_comb_stab_struc_params.csv")
+#infile_df = read.csv(infile)
+
+
 #===========================================
-drug = "streptomycin"
-gene = "gid"
-
-source("plotting_data.R")
-
-infile = paste0("~/git/Data/", drug, "/output/", gene, "_comb_stab_struc_params.csv")
-infile_df = read.csv(infile)
-
 lig_dist = 5
 pd_df = plotting_data(infile_df
                       , lig_dist_colname = 'ligand_distance'
-                      , lig_dist_cutoff = lig_dist)
+                      , lig_dist_cutoff  = lig_dist)
 
 my_df       = pd_df[[1]]
 my_df_u     = pd_df[[2]]
@@ -42,8 +41,8 @@ print(paste0("plot filename:", basic_bp_duet))
 
 # function only
 stability_count_bp(plotdf = my_df_u
-               , df_colname = "duet_outcome"
-               , leg_title = "DUET outcome"
+               , df_colname = "ligand_outcome"
+               , leg_title = "Lig outcome"
                , label_categories = c("Destabilising", "Stabilising")
                , leg_position = "top")