Pass tbl callback correctly

ratschlab · Mar 25, 2024 · 74a66d9 · 74a66d9
1 parent 9f152c3
commit 74a66d9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/config-utils.R b/R/config-utils.R
@@ -396,6 +396,7 @@ tbl_callback <- function(x){
 
     callback_field <- vctrs::field(x, "callback")
     if (is.character(callback_field)) {
+      msg_ricu(paste("[tbl_callback] Using callback function: ", callback_field))
       return(str_to_fun(callback_field))
     }
 
@@ -405,7 +406,8 @@ tbl_callback <- function(x){
 
     callback_value <- callback_field[[1]]
     if (is.character(callback_value)) {
-      return(str_to_fun(callback_field[1]))
+      msg_ricu(paste("[tbl_callback] Using callback function: ", callback_value))
+      return(str_to_fun(callback_value))
     }
 
     return(identity_callback)