add logging of used cache to check and render

Author: nuest

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,14 +56,17 @@ 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),
                            from = 1,
                            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, ]