diff --git a/scripts/functions/logoP_snp.R b/scripts/functions/logoP_snp.R index d07597e..fbd8f10 100644 --- a/scripts/functions/logoP_snp.R +++ b/scripts/functions/logoP_snp.R @@ -51,6 +51,10 @@ 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]")))) + } ############################################ # Data processing for logo plot for nsSNPS ############################################