lint

Author: chrismainey

R/funnel_plot.R

@@ -466,7 +466,7 @@ funnel_plot <- function(.data
   #   data. This drops the standard error 's' already present in mod_plot_agg
   mod_plot_agg <-
     merge(mod_plot_agg[, -grep("\\bs\\b", colnames(mod_plot_agg))],
-            plot_limits, by.x = "denominator", by.y = "number_seq")
+          plot_limits, by.x = "denominator", by.y = "number_seq")
 
   # Arrange rows by group
   mod_plot_agg <- mod_plot_agg[order(mod_plot_agg$group), ]