R Notebook

library(r2rtf)

## Warning: package 'r2rtf' was built under R version 4.1.3

library(metalite)
library(metalite.table1)

library(r2rtf)
# Prepare analysis ready data
df <- r2rtf_adsl
df$AGE[1:3] <- NA # Create missing value for illustration purpose.
df$ARM <- factor(
  df$ARM,
  c("Placebo", "Xanomeline Low Dose", "Xanomeline High Dose"),
  c("Placebo", "Low Dose", "High Dose")
)
df <- df[, c("USUBJID", "ARM", "AGE", "SEX", "RACE", "BMIBLGR1")]

head(df)

df <- metalite::assign_label(
  df,
  var = c("AGE", "BMIBLGR1"),
  label = c("Age (Year)", "BMI Group (kg/m2)")
)
metalite::get_label(df)

##                     USUBJID                         ARM 
## "Unique Subject Identifier"                       "ARM" 
##                         AGE                         SEX 
##                "Age (Year)"                       "Sex" 
##                        RACE                    BMIBLGR1 
##                      "Race"         "BMI Group (kg/m2)"

metalite.table1::metalite_table1(~ AGE + SEX | ARM,
  data = df,
  id = "USUBJID",
  type = "Participants"
)

metalite_table1(
  ~ AGE + SEX + RACE + BMIBLGR1 | ARM, # formula
  data = df, # source data
  id = "USUBJID" # unique subject id
)