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

various tweaks to make the RShiny dashboards work

Browse source
This commit is contained in:
Tanushree Tunstall 2022-04-28 20:20:41 +01:00
parent 5429b8fed7
commit 4f22cd3db1
6 changed files with 33 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

33
scripts/functions/consurfP.R
View file

@ -238,12 +238,31 @@ wideP_consurf <- function(plotdf
my_xlim = length(unique(plotdf[[xvar_colname]])); my_xlim
ymin = min(plotdf[[yvar_colname]]); ymin
ymax = max(plotdf[[yvar_colname]]); ymax
# DEBUG
# x_factor = as.factor(plotdf[[xvar_colname]])
# y_colour_factor = as.factor(plotdf[[yvar_colourN_colname]])
# cat('XXXX THIS:', str(x_factor))
#
# g = ggplot(plotdf, aes_string(x = x_factor)
# , y = yvar_colname
# , colour = y_colour_factor)
g = ggplot(plotdf, aes_string(x = sprintf("factor(%s)", xvar_colname)
, y = yvar_colname
, colour = sprintf("factor(%s)", yvar_colourN_colname)
))
# "if SPECIAL do SPECIAL THING, otherwise do NORMAL THING"
))
# g = ggplot(plotdf, aes_string(x = "position")
# , y = "consurf_score"
# , colour = "consurf_colour_rev")
# g = ggplot(plotdf, aes_string(x = "position")
# , y = "consurf_score"
# , colour = "consurf_colour_rev")
# DEBUG
#g0=g
"if SPECIAL do SPECIAL THING, otherwise do NORMAL THING"
if (plot_type == "bar"){
g0 = g +
geom_bar(stat = "identity")
@ -260,15 +279,15 @@ wideP_consurf <- function(plotdf
}
if (plot_error_bars){
g0 = g0 +
g0 = g0 +
geom_errorbar(aes(ymin = eval(parse(text = lower_EB_colname))
, ymax = eval(parse(text = upper_EB_colname))
))
}else{
g0 = g0
}
g0 = g0
}
#---------------------
# add axis formatting