move closer to the example

Author: lorenzwalthert

.github/workflows/benchmarking.yaml

@@ -84,14 +84,14 @@ jobs:
         run: Rscript -e "bench::cb_push()"
       - uses: actions/upload-artifact@v1
         with:
-          name: pr-comment
+          name: results
           path: bench/pr-comment
       - uses: actions/download-artifact@v1
         with:
-          name: pr-comment
+          name: results
       - name: comment PR
         uses: machine-learning-apps/pr-comment@master
         env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
         with:
-          path: pr-comment
+          path: results/info.txt

bench/01-declarations.R

@@ -32,7 +32,9 @@ 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")
-        cat(pr_comment, file = "pr-comment", append = TRUE)
+        file <- "pr-comment/info.txt"
+        dir.create(dirname(file))
+        cat(pr_comment, file = file, append = TRUE)
       }
     }
   }