site_snp_count_bp error handler

2022-09-09 19:37:38 +01:00 · 2022-09-09 19:37:38 +01:00 · 4f01695391
commit 4f01695391
parent 0a4be280c3
1 changed files with 3 additions and 0 deletions
--- a/scripts/functions/position_count_bp.R
+++ b/scripts/functions/position_count_bp.R
@ -40,6 +40,9 @@ site_snp_count_bp <- function (plotdf,
                               )
                               {
  
+  if (is.null(plotdf)){
+    return(ggplot() + annotate(x=1,y=1,"text", label="NO DATA")+theme_void())
+  }
  plotdf = as.data.frame(plotdf)
  # dim of plotdf
  cat(paste0("\noriginal df dimensions:"