From 903b61e6ea134a224731b031f273bb42030809f5 Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Fri, 17 Sep 2021 13:35:48 +0100
Subject: [PATCH] saving minor update to function fix

---
 scripts/functions/lf_bp.R | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/scripts/functions/lf_bp.R b/scripts/functions/lf_bp.R
index 71b0472..675658e 100644
--- a/scripts/functions/lf_bp.R
+++ b/scripts/functions/lf_bp.R
@@ -31,14 +31,10 @@ lf_bp <- function(lf_df
                   , stat_label = c("p.format", "p.signif") ){
   
   fwv = as.formula(paste0("~", facet_var))
+  #fwv = reformulate(facet_var)
+  
   p1 <- ggplot(lf_df, aes_string(x = x_grp, y = y_var))  + 
     
-    #fwv = eval(parse(text = facet_var))
-    # facet_wrap(~ fwv
-    #            , nrow = n_facet_row
-    #            , scales = y_scales) +
-    #   
-    # fwv = as.formula(paste0("~", facet_var))
     facet_wrap( fwv
                , nrow = n_facet_row
                , scales = y_scales) +