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

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

Browse source
This commit is contained in:
Tanushree Tunstall 2022-02-14 19:33:00 +00:00
parent 0460ca1708
commit d38521e03a
11 changed files with 120 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

47
scripts/functions/consurfP.R
View file

@ -12,7 +12,7 @@
# wideP():
# input args
#==========================================================
wideP_point <- function(plotdf
wideP_consurf <- function(plotdf
, xvar_colname = "position"
, yvar_colname = "consurf_score"
, yvar_colourN_colname = "consurf_colour_rev" # num from 0-1
@ -542,24 +542,51 @@ wideP_point <- function(plotdf
}else{
cat("\nNo annotation for xvar requested")
}
#==============================================
if (A_xvar_lig){
legs = grid.arrange(legend1
legs = cowplot::plot_grid(legend1
, legend2
, ncol = 1
, heights = c(3/4,1))
out2 = grid.arrange( out + theme(legend.position = "none")
, legs
, ncol = 2
, widths = c(9/10, 0.5/10)
, align = "hv"
, rel_heights = c(3/4,1))
out2 = cowplot::plot_grid( out + theme(legend.position = "none")
, legs
, ncol = 2
, align = "hv"
, rel_widths = c(9/10, 0.5/10)
)
}else{
out2 = grid.arrange( out + theme(legend.position = "none")
out2 = cowplot::plot_grid( out + theme(legend.position = "none")
, legend1
, ncol = 2
, widths = c(9/10, 0.5/10)
, align = "hv"
, rel_widths = c(9/10, 0.5/10)
)
}
#==============================================
#==============================================
# if (A_xvar_lig){
# legs = grid.arrange(legend1
# , legend2
# , ncol = 1
# , heights = c(3/4,1))
#
# out2 = grid.arrange( out + theme(legend.position = "none")
# , legs
# , ncol = 2
# , widths = c(9/10, 0.5/10)
# )
# }else{
# out2 = grid.arrange( out + theme(legend.position = "none")
# , legend1
# , ncol = 2
# , widths = c(9/10, 0.5/10)
# )
# }
#==============================================
return(out2)
#return(out2)