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) +