Update mkonfound.R

R/mkonfound.R

@@ -37,8 +37,8 @@
   df_vec <- pull(select(d, !!df_enquo))
 
   if (length(t_vec) <= 1) {
     stop("To carry out sensitivity analysis 
          for a single study, use pkonfound()")
   }
 
   results_df <- purrr::map2_dfr(.x = t_vec, .y = df_vec, 
@@ -51,7 +51,8 @@
     )
 
     p <- ggplot2::ggplot(results_df, 
-                         ggplot2::aes(x = results_df$pct_bias_to_change_inference, 
+                         ggplot2::aes(
+                           x = results_df$pct_bias_to_change_inference, 
                                       fill = results_df$action)) +
       ggplot2::geom_histogram() +
       ggplot2::scale_fill_manual("", values = c("#1F78B4", "#A6CEE3")) +