From ac78fe16cdfc026a6e82f6104e332c83506f358b Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Sun, 6 Mar 2022 14:48:53 +0000
Subject: [PATCH] logoP SNP adj

---
 scripts/functions/logoP_snp.R | 4 ++++
 1 file changed, 4 insertions(+)

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
    ############################################