From db9c88d20cec285f95d072d5cd46118f9292165f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20N=C3=BCst?= Date: Wed, 13 Nov 2024 17:03:18 +0100 Subject: [PATCH] add logging of used cache to check and render --- R/register.R | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/R/register.R b/R/register.R index 1fa3e0e..8ec602b 100644 --- a/R/register.R +++ b/R/register.R @@ -26,6 +26,8 @@ register_render <- function(register = read.csv("register.csv", as.is = TRUE), # Loading config.R file source(system.file("extdata", "config.R", package = "codecheck")) + + message("Using cache path ", R.cache::getCacheRootPath()) register_table <- preprocess_register(register, filter_by) # Setting number of codechecks now for later use. This is done to avoid double counting codechecks @@ -54,6 +56,7 @@ register_render <- function(register = read.csv("register.csv", as.is = TRUE), #' @param to The last register entry to check #' #' @author Daniel Nüst +#' @importFrom R.cache getCacheRootPath #' @importFrom gh gh #' @export register_check <- function(register = read.csv("register.csv", as.is = TRUE), @@ -61,7 +64,9 @@ register_check <- function(register = read.csv("register.csv", as.is = TRUE), to = nrow(register)) { # Loading config.R file source(system.file("extdata", "config.R", package = "codecheck")) - + + message("Using cache path ", R.cache::getCacheRootPath()) + for (i in seq(from = from, to = to)) { cat("Checking", toString(register[i, ]), "\n") entry <- register[i, ]