nicer rounding

lorenzwalthert · lorenzwalthert · commit ec510479d1e4 · 2020-11-01T17:52:03.000+01:00
diff --git a/bench/01-declarations.R b/bench/01-declarations.R
@@ -27,8 +27,8 @@ plot_against_base <- function(new_bm,
         new_bm <- dplyr::bind_rows(reference, new_bm)
         stopifnot(nrow(new_bm) == 2)
         diff_in_percent <- round(100 * diff(new_bm$p50) / new_bm$p50[1])
-        pr_comment <- glue::glue("* {name}: {new_bm$p50[1]} -> {new_bm$p50[2]} ({diff_in_percent}%)\n")
-        cat(pr_comment, file = "pr-comment/info.txt", append = TRUE)
+        pr_comment <- glue::glue("* {name}: {round(new_bm$p50[1], 3)} -> {round(new_bm$p50[2], 3)} ({diff_in_percent}%)")
+        cat(pr_comment, file = "pr-comment/info.txt", sep = "\n", append = TRUE)
       }
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -27,8 +27,8 @@ plot_against_base <- function(new_bm,`
`27`	`27`	`new_bm <- dplyr::bind_rows(reference, new_bm)`
`28`	`28`	`stopifnot(nrow(new_bm) == 2)`
`29`	`29`	`diff_in_percent <- round(100 * diff(new_bm$p50) / new_bm$p50[1])`
`30`		`- pr_comment <- glue::glue("* {name}: {new_bm$p50[1]} -> {new_bm$p50[2]} ({diff_in_percent}%)\n")`
`31`		`- cat(pr_comment, file = "pr-comment/info.txt", append = TRUE)`
	`30`	`+ pr_comment <- glue::glue("* {name}: {round(new_bm$p50[1], 3)} -> {round(new_bm$p50[2], 3)} ({diff_in_percent}%)")`
	`31`	`+ cat(pr_comment, file = "pr-comment/info.txt", sep = "\n", append = TRUE)`
`32`	`32`	`}`
`33`	`33`	`}`
`34`	`34`	`}`