fixes error in plot titles

craig-parylo · Jun 7, 2024 · 034e759 · 034e759
1 parent f5937a5
commit 034e759
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_or.R b/R/plot_or.R
@@ -196,7 +196,7 @@ prepare_df_for_plotting <- function(df) {
 plot_odds_ratio <- function(df, model) {
 
   # get the name of the outcome variable - will be used in the plot title
-  model_outcome_var = model$formula[[2]]
+  model_outcome_var = model$formula[[2]] |> as.character()
   model_outcome_label = sapply(model$data[model_outcome_var], function(x){attr(x,"label")})[[1]]
   model_outcome = coalesce(model_outcome_label, model_outcome_var |> as.character())