fix file

lorenzwalthert · lorenzwalthert · commit c56e2323bf89 · 2020-10-25T19:15:41.000+01:00
diff --git a/bench/01-declarations.R b/bench/01-declarations.R
@@ -32,9 +32,7 @@ plot_against_base <- function(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")
-        file <- "pr-comment/info.txt"
-        dir.create(dirname(file))
-        cat(pr_comment, file = file, append = TRUE)
+        cat(pr_comment, file = "pr-comment/info.txt", append = TRUE)
       }
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -32,9 +32,7 @@ plot_against_base <- function(new_bm,`
`32`	`32`	`stopifnot(nrow(new_bm) == 2)`
`33`	`33`	`diff_in_percent <- round(100 * diff(new_bm$p50) / new_bm$p50[1])`
`34`	`34`	`pr_comment <- glue::glue("* {name}: {new_bm$p50[1]} -> {new_bm$p50[2]} ({diff_in_percent}%)\n")`
`35`		`- file <- "pr-comment/info.txt"`
`36`		`- dir.create(dirname(file))`
`37`		`- cat(pr_comment, file = file, append = TRUE)`
	`35`	`+ cat(pr_comment, file = "pr-comment/info.txt", append = TRUE)`
`38`	`36`	`}`
`39`	`37`	`}`
`40`	`38`	`}`