From ecf32eae3c82d76643505bc56ce7811825e823b3 Mon Sep 17 00:00:00 2001 From: vedhav Date: Tue, 27 Feb 2024 18:02:31 +0530 Subject: [PATCH] fix: pass the base class into `bivariate_plot_call` --- R/tm_g_association.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/tm_g_association.R b/R/tm_g_association.R index 9004fe84f..cfe164fa9 100644 --- a/R/tm_g_association.R +++ b/R/tm_g_association.R @@ -337,6 +337,7 @@ srv_tm_g_association <- function(id, # reference ref_class <- class(ANL[[ref_name]]) + ref_class <- ref_class[length(ref_class)] if (is.numeric(ANL[[ref_name]]) && log_transformation) { # works for both integers and doubles ref_cl_name <- call("log", as.name(ref_name)) @@ -374,6 +375,7 @@ srv_tm_g_association <- function(id, var_calls <- lapply(vars_names, function(var_i) { var_class <- class(ANL[[var_i]]) + var_class <- var_class[length(var_class)] if (is.numeric(ANL[[var_i]]) && log_transformation) { # works for both integers and doubles var_cl_name <- call("log", as.name(var_i))