In dewittpe/qwraps2: Quick Wraps 2

library(qwraps2)
options(qwraps2_markup = "markdown")
library(knitr)
library(kableExtra)

# Create som sample data
set.seed(2)
df <- data.frame(
  group = as.factor(sample(c("A","B"),8, replace = T)),
  value = sample(2:10,8, replace=F),
  pos = as.factor(sample(c("pos.","neg."),8, replace = T))
)

# Define the table for summary_table
summary <- list(
  "Groups" = list(
    "Value" = ~ median_iqr(value),
    "Pos. (%)" = ~ qwraps2::n_perc(pos == "pos."))
)

new_table <- summary_table(df, summaries = summary, by = "group")

new_table