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

4
scripts/functions/logoP_snp.R
View file

@ -52,8 +52,8 @@ LogoPlotSnps <- function(plot_df
{
# handle funky omit_snp_count. DOES NOT WORK YET
if (class(omit_snp_count != 'numeric')){
omit_snp_count <- as.numeric(unlist(str_extract_all(thing, regex("[0-9]"))))
if (class(omit_snp_count) != "numeric"){
omit_snp_count <- as.numeric(unlist(str_extract_all(omit_snp_count, regex("[0-9]+"))))
}
############################################
# Data processing for logo plot for nsSNPS