Merge pull request #6 from ianhussey/master

consistent number of decimal places shown in forest plot
mvuorre · Nov 14, 2018 · dc9c1dd · dc9c1dd
2 parents d587c67 + 5f597c3
commit dc9c1dd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/forest.R b/R/forest.R
@@ -74,11 +74,11 @@ forest <- function(model,
                                     samples_sum[[grouping]])
   # Create text intervals
   samples_sum[["Interval"]] <- paste0(
-    round(samples_sum[["Estimate"]], digits),
+    format(round(samples_sum[["Estimate"]], digits), nsmall = digits),
     " [",
-    round(samples_sum[[lwr]], digits),
+    format(round(samples_sum[[lwr]], digits), nsmall = digits),
     ", ",
-    round(samples_sum[[upr]], digits), "]"
+    format(round(samples_sum[[upr]], digits), nsmall = digits), "]"
   )
   # Order effects
   if (sort) samples_sum <- dplyr::arrange_(samples_sum, "type", "Parameter", "Estimate")