From 74a66d9785ba3fb78d6d9dc396942dadf748cb42 Mon Sep 17 00:00:00 2001 From: Manuel Burger Date: Mon, 25 Mar 2024 16:54:23 +0100 Subject: [PATCH] Pass tbl callback correctly --- R/config-utils.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/config-utils.R b/R/config-utils.R index 4a6dbc07..4b036943 100644 --- 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)