Restore functionality in inline_text.tbl_summary(column)

NEWS.md

@@ -1,5 +1,7 @@
 # gtsummary (development version)
 
+* Restore functionality of `inline_text.tbl_summary(column)` argument to specify a by level when the by variable is a factor: a regression introduced in v2.0.0. (#1883)
+
 * Correct the order of the columns when the `tbl_summary(by)` variables has ten or more levels: a regression introduced in v2.0.0. (#1877)
 
 # gtsummary 2.0.0

R/inline_text.tbl_summary.R

@@ -62,7 +62,7 @@ inline_text.tbl_summary <- function(x,
       dplyr::filter(.data$group1 %in% .env$x$inputs$by) |>
       dplyr::select("gts_column", "group1_level") |>
       unique() |>
-      dplyr::mutate(group1_level = unlist(.data$group1_level)) |>
+      dplyr::mutate(group1_level = unlist(.data$group1_level) |> as.character()) |>
       deframe() |>
       as.list()
 

tests/testthat/test-inline_text.R

@@ -89,6 +89,15 @@ test_that("inline_text.tbl_summary", {
       inline_text(variable = grade, level = "I", column = "stat_1"),
     "35 (36%)"
   )
+
+  # ensure inline_text(column) argument works with factor levels
+  expect_equal(
+    trial |>
+      dplyr::mutate(trt = factor(trt)) |>
+      tbl_summary(by = trt, include = age) |>
+      inline_text(variable = "age", column = "Drug A", pattern = "{median}"),
+    "46"
+  )
 })