Log_trace for ToyData

saezlab · Nov 14, 2024 · ade2c4c · ade2c4c
1 parent d01f965
commit ade2c4c
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/R/ToyData.R b/R/ToyData.R
@@ -47,6 +47,7 @@
 #' @importFrom readr read_csv cols
 #' @importFrom magrittr %>% extract2
 #' @importFrom tibble column_to_rownames
+#' @importFrom logger log_trace
 #'
 #' @export
 #'
@@ -71,11 +72,9 @@ ToyData <- function(Dataset) {
 
   #Load dataset:
   if (!Dataset %in% names(datasets)) {
-    stop(sprintf(
-      "No such dataset: `%s`. Available datasets: %s",
-      Dataset,
-      paste(names(datasets), collapse = ", ")
-    ))
+    message <- sprintf("No such dataset: `%s`. Available datasets: %s", Dataset, paste(names(datasets), collapse = ", "))
+    logger::log_trace(paste("Error ", message, sep=""))
+    stop(message)
   }
 
   datasets %>%