multiple object in rating factors

MHaringa · Oct 2, 2024 · 8e3feb5 · 8e3feb5
1 parent e8def23
commit 8e3feb5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/model_rating_factors.R b/R/model_rating_factors.R
@@ -194,6 +194,7 @@ rating_factors2 <- function(model, model_data = NULL, exposure = NULL,
   uit$pvalues <- ifelse(uit$pvalues < 0, NA, uit$pvalues)
   uit$pvalues <- vapply(uit$pvalues, function(x) make_stars(x),
                         FUN.VALUE = character(1))
+  uit$risk_factor <- sub("_rst99$", "", uit$risk_factor)
   uit
 }
 
@@ -334,7 +335,7 @@ rating_factors <- function(..., model_data = NULL, exposure = NULL,
                                           paste0("signif_", cols))]
   }
 
-  rf_fj$risk_factor <- sub("_rst99$", "", rf_fj$risk_factor)
+
 
   return(structure(list(df = rf_fj,
                         df_stars = rf_fj_stars,