pharmaverse examples
  1. Documents
  2. Documents
  • Introduction

  • SDTM
    • DM
    • VS
    • AE
  • ADaM
    • ADSL
    • ADPC
    • ADPPK
    • ADRS
    • ADTTE
    • ADVS
    • ADAE
  • TLG
    • Demographic Table
    • Adverse Events
    • Pharmacokinetic
  • Documents
    • Slides
    • Documents
  • Interactive
    • teal applications
  • Logs
    • The Difference Between logr, logrx, and whirl
  • eSubmission
    • eSubmission

  • Session Info
  • Pharmaverse Home
  1. Documents
  2. Documents

Documents

Introduction

Below is a step-by-step guide demonstrating how to use {rtables.officer} for creating and exporting a clinical trial results table as a docx document.

Setup and Data Preparation

Load the necessary libraries and prepare the dataset:

library(tern)
Loading required package: rtables
Loading required package: formatters

Attaching package: 'formatters'
The following object is masked from 'package:base':

    %||%
Loading required package: magrittr

Attaching package: 'rtables'
The following object is masked from 'package:utils':

    str
Registered S3 method overwritten by 'tern':
  method   from 
  tidy.glm broom
library(dplyr)

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
library(rtables.officer)
Loading required package: rlistings
Loading required package: tibble
# Load example datasets
adsl <- pharmaverseadam::adsl
adlb <- pharmaverseadam::adlb

# Convert character variables to factors and handle missing levels
adsl <- df_explicit_na(adsl)
adlb <- df_explicit_na(adlb)

# Create a temporary file for the output
tf <- tempfile(fileext = ".docx")

Data Filtering

Filter the dataset for specific parameters and visits:

adlb_f <- adlb %>%
  dplyr::filter(
    PARAM %in% c("Alanine Aminotransferase (U/L)", "Creatinine Kinase (U/L)") &
      !(ACTARM == "B: Placebo" & AVISIT == "Week 2")
  )

Define Custom Analysis Function

Create a custom function to perform the analysis:

afun <- function(x, .var, .spl_context, ...) {
  n_fun <- sum(!is.na(x), na.rm = TRUE)
  mean_sd_fun <- if (n_fun == 0) c(NA, NA) else c(mean(x, na.rm = TRUE), sd(x, na.rm = TRUE))
  median_fun <- if (n_fun == 0) NA else median(x, na.rm = TRUE)
  min_max_fun <- if (n_fun == 0) c(NA, NA) else c(min(x), max(x))

  is_chg <- .var == "CHG"
  is_baseline <- .spl_context$value[which(.spl_context$split == "AVISIT")] == "Baseline"
  if (is_baseline && is_chg) n_fun <- mean_sd_fun <- median_fun <- min_max_fun <- NULL

  in_rows(
    "n" = n_fun,
    "Mean (SD)" = mean_sd_fun,
    "Median" = median_fun,
    "Min - Max" = min_max_fun,
    .formats = list("n" = "xx", "Mean (SD)" = "xx.xx (xx.xx)", "Median" = "xx.xx", "Min - Max" = "xx.xx - xx.xx"),
    .format_na_strs = list("n" = "NE", "Mean (SD)" = "NE (NE)", "Median" = "NE", "Min - Max" = "NE - NE")
  )
}

Define Table Layout

Create the layout for the table:

lyt <- basic_table() %>%
  split_cols_by("ACTARM", show_colcounts = TRUE, split_fun = keep_split_levels(levels(adlb_f$ACTARM)[c(1, 2)])) %>%
  split_rows_by("PARAM",
    split_fun = drop_split_levels, label_pos = "topleft",
    split_label = obj_label(adlb_f$PARAM), page_by = TRUE
  ) %>%
  split_rows_by("AVISIT",
    split_fun = drop_split_levels, label_pos = "topleft",
    split_label = obj_label(adlb_f$AVISIT)
  ) %>%
  split_cols_by_multivar(
    vars = c("AVAL", "CHG"),
    varlabels = c("Value at Visit", "Change from Baseline")
  ) %>%
  analyze_colvars(afun = afun)

Build and Display the Table

Build the table using the defined layout:

result <- build_table(lyt, adlb_f)
result
                                                 Placebo                            Xanomeline High Dose          
Parameter                                       (N=1946)                                  (N=1472)                
  Analysis Visit                  Value at Visit    Change from Baseline    Value at Visit    Change from Baseline
——————————————————————————————————————————————————————————————————————————————————————————————————————————————————
Alanine Aminotransferase (U/L)                                                                                    
  Ambul Ecg Removal                                                                                               
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Baseline                                                                                                        
    n                                   86                                        72                              
    Mean (SD)                      17.57 (9.22)                             19.17 (10.25)                         
    Median                            15.00                                     16.50                             
    Min - Max                      7.00 - 69.00                              6.00 - 64.00                         
  POST-BASELINE LAST                                                                                              
    n                                   83                   83                   72                   72         
    Mean (SD)                     16.64 (10.83)         -0.96 (8.08)         18.90 (6.49)         -0.15 (8.14)    
    Median                            14.00                -1.00                18.50                 1.00        
    Min - Max                      3.00 - 95.00        -31.00 - 45.00        8.00 - 43.00        -38.00 - 18.00   
  POST-BASELINE MAXIMUM                                                                                           
    n                                   83                   83                   72                   72         
    Mean (SD)                     23.94 (18.05)         6.34 (14.68)        26.67 (16.13)         7.61 (14.55)    
    Median                            19.00                 4.00                23.00                 5.00        
    Min - Max                     8.00 - 124.00       -10.00 - 111.00       11.00 - 129.00      -10.00 - 119.00   
  POST-BASELINE MINIMUM                                                                                           
    n                                   83                   83                   72                   72         
    Mean (SD)                     13.40 (10.41)         -4.20 (7.69)         16.12 (5.60)         -2.93 (7.05)    
    Median                            12.00                -3.00                15.00                -2.00        
    Min - Max                      3.00 - 95.00        -34.00 - 45.00        7.00 - 35.00        -38.00 - 9.00    
  Retrieval                                                                                                       
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Unscheduled 1.1                                                                                                 
    n                                   8                    8                    6                    6          
    Mean (SD)                     22.12 (13.78)         0.00 (0.00)         24.00 (18.58)         0.50 (1.22)     
    Median                            17.00                 0.00                16.50                 0.00        
    Min - Max                     14.00 - 55.00         0.00 - 0.00         12.00 - 61.00         0.00 - 3.00     
  Unscheduled 1.2                                                                                                 
    n                                   1                    1                    1                    1          
    Mean (SD)                    18.00 (NE (NE))       0.00 (NE (NE))      14.00 (NE (NE))       0.00 (NE (NE))   
    Median                            18.00                 0.00                14.00                 0.00        
    Min - Max                     18.00 - 18.00         0.00 - 0.00         14.00 - 14.00         0.00 - 0.00     
  Unscheduled 1.3                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    11.00 (NE (NE))       0.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            11.00                 0.00                  NE                   NE         
    Min - Max                     11.00 - 11.00         0.00 - 0.00            NE - NE              NE - NE       
  Unscheduled 12.1                                                                                                
    n                                   1                    1                    0                    0          
    Mean (SD)                    12.00 (NE (NE))      -3.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            12.00                -3.00                  NE                   NE         
    Min - Max                     12.00 - 12.00        -3.00 - -3.00           NE - NE              NE - NE       
  Unscheduled 13.1                                                                                                
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Unscheduled 4.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    95.00 (NE (NE))      45.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            95.00                45.00                  NE                   NE         
    Min - Max                     95.00 - 95.00        45.00 - 45.00           NE - NE              NE - NE       
  Unscheduled 4.2                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    92.00 (NE (NE))      42.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            92.00                42.00                  NE                   NE         
    Min - Max                     92.00 - 92.00        42.00 - 42.00           NE - NE              NE - NE       
  Unscheduled 5.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    73.00 (NE (NE))      23.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            73.00                23.00                  NE                   NE         
    Min - Max                     73.00 - 73.00        23.00 - 23.00           NE - NE              NE - NE       
  Unscheduled 6.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    17.00 (NE (NE))      -5.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            17.00                -5.00                  NE                   NE         
    Min - Max                     17.00 - 17.00        -5.00 - -5.00           NE - NE              NE - NE       
  Unscheduled 7.1                                                                                                 
    n                                   0                    0                    1                    1          
    Mean (SD)                        NE (NE)              NE (NE)          12.00 (NE (NE))       1.00 (NE (NE))   
    Median                              NE                   NE                 12.00                 1.00        
    Min - Max                        NE - NE              NE - NE           12.00 - 12.00         1.00 - 1.00     
  Unscheduled 8.2                                                                                                 
    n                                   1                    1                    1                    1          
    Mean (SD)                    13.00 (NE (NE))       1.00 (NE (NE))      42.00 (NE (NE))      32.00 (NE (NE))   
    Median                            13.00                 1.00                42.00                32.00        
    Min - Max                     13.00 - 13.00         1.00 - 1.00         42.00 - 42.00        32.00 - 32.00    
  Unscheduled 9.2                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                     9.00 (NE (NE))       0.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                             9.00                 0.00                  NE                   NE         
    Min - Max                      9.00 - 9.00          0.00 - 0.00            NE - NE              NE - NE       
  Week 12                                                                                                         
    n                                   67                   67                   50                   50         
    Mean (SD)                      18.00 (9.16)         0.16 (7.39)         20.98 (10.18)         0.90 (8.78)     
    Median                            16.00                 0.00                19.00                 1.00        
    Min - Max                      6.00 - 64.00        -21.00 - 34.00        9.00 - 70.00        -38.00 - 20.00   
  Week 16                                                                                                         
    n                                   68                   68                   37                   37         
    Mean (SD)                      17.06 (7.39)         -0.65 (6.84)         19.57 (7.61)         -0.03 (7.20)    
    Median                            15.00                 0.00                19.00                 1.00        
    Min - Max                      5.00 - 48.00        -34.00 - 14.00        7.00 - 38.00        -26.00 - 17.00   
  Week 2                                                                                                          
    n                                   83                   83                   70                   70         
    Mean (SD)                     17.99 (12.53)         0.29 (7.80)          21.17 (8.87)         2.19 (6.55)     
    Median                            15.00                -1.00                19.00                 2.00        
    Min - Max                     6.00 - 104.00        -14.00 - 54.00        8.00 - 49.00        -31.00 - 17.00   
  Week 20                                                                                                         
    n                                   65                   65                   31                   31         
    Mean (SD)                      16.06 (6.56)         -1.75 (6.24)         19.58 (6.82)         -0.26 (8.33)    
    Median                            14.00                -1.00                19.00                 1.00        
    Min - Max                      7.00 - 48.00        -34.00 - 18.00        9.00 - 35.00        -26.00 - 13.00   
  Week 24                                                                                                         
    n                                   57                   57                   30                   30         
    Mean (SD)                     17.86 (15.61)        -0.14 (16.19)         20.97 (8.70)         0.27 (8.00)     
    Median                            14.00                -2.00                18.50                 0.00        
    Min - Max                     5.00 - 124.00       -28.00 - 111.00        9.00 - 43.00        -24.00 - 15.00   
  Week 26                                                                                                         
    n                                   57                   57                   27                   27         
    Mean (SD)                      16.02 (5.98)         -1.84 (6.41)         18.85 (7.02)         -1.93 (6.65)    
    Median                            15.00                -1.00                18.00                -1.00        
    Min - Max                      3.00 - 31.00        -31.00 - 12.00        8.00 - 39.00        -22.00 - 8.00    
  Week 4                                                                                                          
    n                                   79                   79                   72                   72         
    Mean (SD)                     18.66 (12.91)         0.80 (8.50)          21.31 (9.51)         2.25 (7.00)     
    Median                            16.00                 0.00                20.00                 1.00        
    Min - Max                     6.00 - 107.00        -13.00 - 57.00        8.00 - 61.00        -28.00 - 21.00   
  Week 6                                                                                                          
    n                                   73                   73                   66                   66         
    Mean (SD)                      16.96 (9.92)         -0.37 (7.23)         21.23 (9.49)         1.71 (6.01)     
    Median                            15.00                -1.00                19.00                 2.00        
    Min - Max                      4.00 - 76.00        -15.00 - 46.00       10.00 - 60.00        -19.00 - 15.00   
  Week 8                                                                                                          
    n                                   72                   72                   56                   56         
    Mean (SD)                      16.72 (9.34)         -0.96 (5.33)        22.79 (17.49)         3.34 (17.22)    
    Median                            15.00                -1.00                18.00                 1.00        
    Min - Max                      7.00 - 63.00        -17.00 - 14.00       10.00 - 129.00      -29.00 - 119.00   
Creatinine Kinase (U/L)                                                                                           
  Ambul Ecg Removal                                                                                               
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Baseline                                                                                                        
    n                                   86                                        72                              
    Mean (SD)                     86.94 (43.71)                             105.39 (73.94)                        
    Median                            80.00                                     81.00                             
    Min - Max                     27.00 - 239.00                            28.00 - 444.00                        
  POST-BASELINE LAST                                                                                              
    n                                   83                   83                   72                   72         
    Mean (SD)                    104.99 (167.15)       19.04 (159.63)       96.31 (65.39)        -9.17 (66.52)    
    Median                            77.00                 1.00                79.50                -6.50        
    Min - Max                    18.00 - 1556.00     -156.00 - 1414.00      25.00 - 429.00      -332.00 - 306.00  
  POST-BASELINE MAXIMUM                                                                                           
    n                                   83                   83                   72                   72         
    Mean (SD)                    163.60 (215.36)       77.65 (202.06)      152.79 (218.53)       47.32 (174.68)   
    Median                            100.00               26.00                104.00               18.50        
    Min - Max                    29.00 - 1556.00     -150.00 - 1414.00     38.00 - 1860.00      -92.00 - 1416.00  
  POST-BASELINE MINIMUM                                                                                           
    n                                   83                   83                   72                   72         
    Mean (SD)                     66.78 (29.37)        -19.17 (28.88)       74.40 (37.17)        -31.07 (50.64)   
    Median                            62.00                -13.00               66.50                -18.00       
    Min - Max                     18.00 - 140.00      -164.00 - 51.00       25.00 - 212.00      -344.00 - 25.00   
  Retrieval                                                                                                       
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Unscheduled 1.1                                                                                                 
    n                                   8                    8                    6                    6          
    Mean (SD)                     71.50 (17.11)         0.00 (0.00)         100.17 (53.82)       -4.33 (10.61)    
    Median                            69.50                 0.00                79.00                 0.00        
    Min - Max                     41.00 - 92.00         0.00 - 0.00         68.00 - 209.00       -26.00 - 0.00    
  Unscheduled 1.2                                                                                                 
    n                                   1                    1                    1                    1          
    Mean (SD)                    182.00 (NE (NE))      0.00 (NE (NE))      108.00 (NE (NE))      0.00 (NE (NE))   
    Median                            182.00                0.00                108.00                0.00        
    Min - Max                    182.00 - 182.00        0.00 - 0.00        108.00 - 108.00        0.00 - 0.00     
  Unscheduled 1.3                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    85.00 (NE (NE))       0.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            85.00                 0.00                  NE                   NE         
    Min - Max                     85.00 - 85.00         0.00 - 0.00            NE - NE              NE - NE       
  Unscheduled 12.1                                                                                                
    n                                   1                    1                    0                    0          
    Mean (SD)                    59.00 (NE (NE))      -2.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            59.00                -2.00                  NE                   NE         
    Min - Max                     59.00 - 59.00        -2.00 - -2.00           NE - NE              NE - NE       
  Unscheduled 13.1                                                                                                
    n                                   0                    0                    0                    0          
    Mean (SD)                        NE (NE)              NE (NE)              NE (NE)              NE (NE)       
    Median                              NE                   NE                   NE                   NE         
    Min - Max                        NE - NE              NE - NE              NE - NE              NE - NE       
  Unscheduled 4.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    52.00 (NE (NE))      11.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            52.00                11.00                  NE                   NE         
    Min - Max                     52.00 - 52.00        11.00 - 11.00           NE - NE              NE - NE       
  Unscheduled 4.2                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    42.00 (NE (NE))       1.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            42.00                 1.00                  NE                   NE         
    Min - Max                     42.00 - 42.00         1.00 - 1.00            NE - NE              NE - NE       
  Unscheduled 5.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    40.00 (NE (NE))      -1.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            40.00                -1.00                  NE                   NE         
    Min - Max                     40.00 - 40.00        -1.00 - -1.00           NE - NE              NE - NE       
  Unscheduled 6.1                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    85.00 (NE (NE))      -5.00 (NE (NE))          NE (NE)              NE (NE)       
    Median                            85.00                -5.00                  NE                   NE         
    Min - Max                     85.00 - 85.00        -5.00 - -5.00           NE - NE              NE - NE       
  Unscheduled 7.1                                                                                                 
    n                                   0                    0                    1                    1          
    Mean (SD)                        NE (NE)              NE (NE)          50.00 (NE (NE))       7.00 (NE (NE))   
    Median                              NE                   NE                 50.00                 7.00        
    Min - Max                        NE - NE              NE - NE           50.00 - 50.00         7.00 - 7.00     
  Unscheduled 8.2                                                                                                 
    n                                   1                    1                    1                    1          
    Mean (SD)                    36.00 (NE (NE))       7.00 (NE (NE))      41.00 (NE (NE))      -10.00 (NE (NE))  
    Median                            36.00                 7.00                41.00                -10.00       
    Min - Max                     36.00 - 36.00         7.00 - 7.00         41.00 - 41.00       -10.00 - -10.00   
  Unscheduled 9.2                                                                                                 
    n                                   1                    1                    0                    0          
    Mean (SD)                    52.00 (NE (NE))      -15.00 (NE (NE))         NE (NE)              NE (NE)       
    Median                            52.00                -15.00                 NE                   NE         
    Min - Max                     52.00 - 52.00       -15.00 - -15.00          NE - NE              NE - NE       
  Week 12                                                                                                         
    n                                   67                   67                   50                   50         
    Mean (SD)                     101.81 (78.66)       11.07 (68.81)        96.62 (60.55)        -2.28 (65.26)    
    Median                            77.00                 3.00                84.50                -4.00        
    Min - Max                     31.00 - 532.00      -160.00 - 434.00      26.00 - 316.00      -332.00 - 243.00  
  Week 16                                                                                                         
    n                                   68                   68                   37                   37         
    Mean (SD)                     104.85 (66.37)       14.90 (53.61)        86.14 (47.70)        -0.95 (23.02)    
    Median                            89.00                 4.00                76.00                -3.00        
    Min - Max                     27.00 - 365.00      -157.00 - 213.00      31.00 - 276.00       -70.00 - 51.00   
  Week 2                                                                                                          
    n                                   83                   83                   70                   70         
    Mean (SD)                     90.29 (66.11)         4.10 (57.83)        94.13 (51.91)        -12.29 (53.50)   
    Median                            75.00                -4.00                75.50                -1.50        
    Min - Max                     22.00 - 536.00      -162.00 - 421.00      31.00 - 325.00      -344.00 - 92.00   
  Week 20                                                                                                         
    n                                   65                   65                   31                   31         
    Mean (SD)                     93.80 (46.56)         3.34 (38.86)        97.55 (68.57)         7.65 (28.73)    
    Median                            87.00                 2.00                82.00                 4.00        
    Min - Max                     30.00 - 209.00      -150.00 - 121.00      29.00 - 352.00       -56.00 - 99.00   
  Week 24                                                                                                         
    n                                   57                   57                   30                   30         
    Mean (SD)                    127.37 (207.98)       35.61 (199.06)       90.87 (53.97)         1.17 (22.13)    
    Median                            86.00                 3.00                72.00                 3.50        
    Min - Max                    24.00 - 1556.00     -158.00 - 1414.00      41.00 - 287.00       -52.00 - 56.00   
  Week 26                                                                                                         
    n                                   57                   57                   27                   27         
    Mean (SD)                     94.09 (51.03)         3.37 (42.85)        92.96 (59.94)         3.89 (44.82)    
    Median                            79.00                 2.00                77.00                -2.00        
    Min - Max                     18.00 - 233.00      -156.00 - 94.00       25.00 - 302.00      -118.00 - 130.00  
  Week 4                                                                                                          
    n                                   79                   79                   72                   72         
    Mean (SD)                     96.89 (124.45)       10.28 (115.77)       100.61 (58.39)       -4.86 (53.87)    
    Median                            76.00                 0.00                79.50                 0.50        
    Min - Max                    20.00 - 1125.00      -164.00 - 985.00      30.00 - 300.00      -321.00 - 126.00  
  Week 6                                                                                                          
    n                                   73                   73                   66                   66         
    Mean (SD)                     88.01 (42.36)         0.88 (38.63)       123.55 (227.36)       17.18 (187.49)   
    Median                            80.00                 0.00                76.00                -7.00        
    Min - Max                     25.00 - 224.00      -161.00 - 100.00     27.00 - 1860.00     -281.00 - 1416.00  
  Week 8                                                                                                          
    n                                   72                   72                   56                   56         
    Mean (SD)                     93.85 (45.84)         3.31 (42.58)        91.75 (52.25)        -8.84 (58.42)    
    Median                            83.50                 1.50                77.00                -3.50        
    Min - Max                     28.00 - 260.00      -156.00 - 168.00      37.00 - 317.00      -299.00 - 173.00  

Assign titles and footers:

main_title(result) <- "Alanine Aminotransferase Measurement"
subtitles(result) <- c("This is a subtitle.", "This is another subtitle.")
main_footer(result) <- "This is a demo table for illustration purpose."
prov_footer(result) <- "Program: demo_poc_docx.R\nDate: 2024-11-06\nVersion: 0.0.1\n"

Convert to flextable and Export to Word

Convert the table to a flextable object and export it to a Word document:

flx_res <- tt_to_flextable(result)
export_as_docx(flx_res,
  file = tf,
  section_properties = section_properties_default(orientation = "landscape")
)
flx_res

Alanine Aminotransferase Measurement

This is a subtitle.

This is another subtitle.

Parameter

Placebo (N=1946)

Xanomeline High Dose (N=1472)

Analysis Visit

Value at Visit

Change from Baseline

Value at Visit

Change from Baseline

Alanine Aminotransferase (U/L)

Ambul Ecg Removal

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Baseline

n

86

72

Mean (SD)

17.57 (9.22)

19.17 (10.25)

Median

15.00

16.50

Min - Max

7.00 - 69.00

6.00 - 64.00

POST-BASELINE LAST

n

83

83

72

72

Mean (SD)

16.64 (10.83)

-0.96 (8.08)

18.90 (6.49)

-0.15 (8.14)

Median

14.00

-1.00

18.50

1.00

Min - Max

3.00 - 95.00

-31.00 - 45.00

8.00 - 43.00

-38.00 - 18.00

POST-BASELINE MAXIMUM

n

83

83

72

72

Mean (SD)

23.94 (18.05)

6.34 (14.68)

26.67 (16.13)

7.61 (14.55)

Median

19.00

4.00

23.00

5.00

Min - Max

8.00 - 124.00

-10.00 - 111.00

11.00 - 129.00

-10.00 - 119.00

POST-BASELINE MINIMUM

n

83

83

72

72

Mean (SD)

13.40 (10.41)

-4.20 (7.69)

16.12 (5.60)

-2.93 (7.05)

Median

12.00

-3.00

15.00

-2.00

Min - Max

3.00 - 95.00

-34.00 - 45.00

7.00 - 35.00

-38.00 - 9.00

Retrieval

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 1.1

n

8

8

6

6

Mean (SD)

22.12 (13.78)

0.00 (0.00)

24.00 (18.58)

0.50 (1.22)

Median

17.00

0.00

16.50

0.00

Min - Max

14.00 - 55.00

0.00 - 0.00

12.00 - 61.00

0.00 - 3.00

Unscheduled 1.2

n

1

1

1

1

Mean (SD)

18.00 (NE (NE))

0.00 (NE (NE))

14.00 (NE (NE))

0.00 (NE (NE))

Median

18.00

0.00

14.00

0.00

Min - Max

18.00 - 18.00

0.00 - 0.00

14.00 - 14.00

0.00 - 0.00

Unscheduled 1.3

n

1

1

0

0

Mean (SD)

11.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

11.00

0.00

NE

NE

Min - Max

11.00 - 11.00

0.00 - 0.00

NE - NE

NE - NE

Unscheduled 12.1

n

1

1

0

0

Mean (SD)

12.00 (NE (NE))

-3.00 (NE (NE))

NE (NE)

NE (NE)

Median

12.00

-3.00

NE

NE

Min - Max

12.00 - 12.00

-3.00 - -3.00

NE - NE

NE - NE

Unscheduled 13.1

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 4.1

n

1

1

0

0

Mean (SD)

95.00 (NE (NE))

45.00 (NE (NE))

NE (NE)

NE (NE)

Median

95.00

45.00

NE

NE

Min - Max

95.00 - 95.00

45.00 - 45.00

NE - NE

NE - NE

Unscheduled 4.2

n

1

1

0

0

Mean (SD)

92.00 (NE (NE))

42.00 (NE (NE))

NE (NE)

NE (NE)

Median

92.00

42.00

NE

NE

Min - Max

92.00 - 92.00

42.00 - 42.00

NE - NE

NE - NE

Unscheduled 5.1

n

1

1

0

0

Mean (SD)

73.00 (NE (NE))

23.00 (NE (NE))

NE (NE)

NE (NE)

Median

73.00

23.00

NE

NE

Min - Max

73.00 - 73.00

23.00 - 23.00

NE - NE

NE - NE

Unscheduled 6.1

n

1

1

0

0

Mean (SD)

17.00 (NE (NE))

-5.00 (NE (NE))

NE (NE)

NE (NE)

Median

17.00

-5.00

NE

NE

Min - Max

17.00 - 17.00

-5.00 - -5.00

NE - NE

NE - NE

Unscheduled 7.1

n

0

0

1

1

Mean (SD)

NE (NE)

NE (NE)

12.00 (NE (NE))

1.00 (NE (NE))

Median

NE

NE

12.00

1.00

Min - Max

NE - NE

NE - NE

12.00 - 12.00

1.00 - 1.00

Unscheduled 8.2

n

1

1

1

1

Mean (SD)

13.00 (NE (NE))

1.00 (NE (NE))

42.00 (NE (NE))

32.00 (NE (NE))

Median

13.00

1.00

42.00

32.00

Min - Max

13.00 - 13.00

1.00 - 1.00

42.00 - 42.00

32.00 - 32.00

Unscheduled 9.2

n

1

1

0

0

Mean (SD)

9.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

9.00

0.00

NE

NE

Min - Max

9.00 - 9.00

0.00 - 0.00

NE - NE

NE - NE

Week 12

n

67

67

50

50

Mean (SD)

18.00 (9.16)

0.16 (7.39)

20.98 (10.18)

0.90 (8.78)

Median

16.00

0.00

19.00

1.00

Min - Max

6.00 - 64.00

-21.00 - 34.00

9.00 - 70.00

-38.00 - 20.00

Week 16

n

68

68

37

37

Mean (SD)

17.06 (7.39)

-0.65 (6.84)

19.57 (7.61)

-0.03 (7.20)

Median

15.00

0.00

19.00

1.00

Min - Max

5.00 - 48.00

-34.00 - 14.00

7.00 - 38.00

-26.00 - 17.00

Week 2

n

83

83

70

70

Mean (SD)

17.99 (12.53)

0.29 (7.80)

21.17 (8.87)

2.19 (6.55)

Median

15.00

-1.00

19.00

2.00

Min - Max

6.00 - 104.00

-14.00 - 54.00

8.00 - 49.00

-31.00 - 17.00

Week 20

n

65

65

31

31

Mean (SD)

16.06 (6.56)

-1.75 (6.24)

19.58 (6.82)

-0.26 (8.33)

Median

14.00

-1.00

19.00

1.00

Min - Max

7.00 - 48.00

-34.00 - 18.00

9.00 - 35.00

-26.00 - 13.00

Week 24

n

57

57

30

30

Mean (SD)

17.86 (15.61)

-0.14 (16.19)

20.97 (8.70)

0.27 (8.00)

Median

14.00

-2.00

18.50

0.00

Min - Max

5.00 - 124.00

-28.00 - 111.00

9.00 - 43.00

-24.00 - 15.00

Week 26

n

57

57

27

27

Mean (SD)

16.02 (5.98)

-1.84 (6.41)

18.85 (7.02)

-1.93 (6.65)

Median

15.00

-1.00

18.00

-1.00

Min - Max

3.00 - 31.00

-31.00 - 12.00

8.00 - 39.00

-22.00 - 8.00

Week 4

n

79

79

72

72

Mean (SD)

18.66 (12.91)

0.80 (8.50)

21.31 (9.51)

2.25 (7.00)

Median

16.00

0.00

20.00

1.00

Min - Max

6.00 - 107.00

-13.00 - 57.00

8.00 - 61.00

-28.00 - 21.00

Week 6

n

73

73

66

66

Mean (SD)

16.96 (9.92)

-0.37 (7.23)

21.23 (9.49)

1.71 (6.01)

Median

15.00

-1.00

19.00

2.00

Min - Max

4.00 - 76.00

-15.00 - 46.00

10.00 - 60.00

-19.00 - 15.00

Week 8

n

72

72

56

56

Mean (SD)

16.72 (9.34)

-0.96 (5.33)

22.79 (17.49)

3.34 (17.22)

Median

15.00

-1.00

18.00

1.00

Min - Max

7.00 - 63.00

-17.00 - 14.00

10.00 - 129.00

-29.00 - 119.00

Creatinine Kinase (U/L)

Ambul Ecg Removal

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Baseline

n

86

72

Mean (SD)

86.94 (43.71)

105.39 (73.94)

Median

80.00

81.00

Min - Max

27.00 - 239.00

28.00 - 444.00

POST-BASELINE LAST

n

83

83

72

72

Mean (SD)

104.99 (167.15)

19.04 (159.63)

96.31 (65.39)

-9.17 (66.52)

Median

77.00

1.00

79.50

-6.50

Min - Max

18.00 - 1556.00

-156.00 - 1414.00

25.00 - 429.00

-332.00 - 306.00

POST-BASELINE MAXIMUM

n

83

83

72

72

Mean (SD)

163.60 (215.36)

77.65 (202.06)

152.79 (218.53)

47.32 (174.68)

Median

100.00

26.00

104.00

18.50

Min - Max

29.00 - 1556.00

-150.00 - 1414.00

38.00 - 1860.00

-92.00 - 1416.00

POST-BASELINE MINIMUM

n

83

83

72

72

Mean (SD)

66.78 (29.37)

-19.17 (28.88)

74.40 (37.17)

-31.07 (50.64)

Median

62.00

-13.00

66.50

-18.00

Min - Max

18.00 - 140.00

-164.00 - 51.00

25.00 - 212.00

-344.00 - 25.00

Retrieval

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 1.1

n

8

8

6

6

Mean (SD)

71.50 (17.11)

0.00 (0.00)

100.17 (53.82)

-4.33 (10.61)

Median

69.50

0.00

79.00

0.00

Min - Max

41.00 - 92.00

0.00 - 0.00

68.00 - 209.00

-26.00 - 0.00

Unscheduled 1.2

n

1

1

1

1

Mean (SD)

182.00 (NE (NE))

0.00 (NE (NE))

108.00 (NE (NE))

0.00 (NE (NE))

Median

182.00

0.00

108.00

0.00

Min - Max

182.00 - 182.00

0.00 - 0.00

108.00 - 108.00

0.00 - 0.00

Unscheduled 1.3

n

1

1

0

0

Mean (SD)

85.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

85.00

0.00

NE

NE

Min - Max

85.00 - 85.00

0.00 - 0.00

NE - NE

NE - NE

Unscheduled 12.1

n

1

1

0

0

Mean (SD)

59.00 (NE (NE))

-2.00 (NE (NE))

NE (NE)

NE (NE)

Median

59.00

-2.00

NE

NE

Min - Max

59.00 - 59.00

-2.00 - -2.00

NE - NE

NE - NE

Unscheduled 13.1

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 4.1

n

1

1

0

0

Mean (SD)

52.00 (NE (NE))

11.00 (NE (NE))

NE (NE)

NE (NE)

Median

52.00

11.00

NE

NE

Min - Max

52.00 - 52.00

11.00 - 11.00

NE - NE

NE - NE

Unscheduled 4.2

n

1

1

0

0

Mean (SD)

42.00 (NE (NE))

1.00 (NE (NE))

NE (NE)

NE (NE)

Median

42.00

1.00

NE

NE

Min - Max

42.00 - 42.00

1.00 - 1.00

NE - NE

NE - NE

Unscheduled 5.1

n

1

1

0

0

Mean (SD)

40.00 (NE (NE))

-1.00 (NE (NE))

NE (NE)

NE (NE)

Median

40.00

-1.00

NE

NE

Min - Max

40.00 - 40.00

-1.00 - -1.00

NE - NE

NE - NE

Unscheduled 6.1

n

1

1

0

0

Mean (SD)

85.00 (NE (NE))

-5.00 (NE (NE))

NE (NE)

NE (NE)

Median

85.00

-5.00

NE

NE

Min - Max

85.00 - 85.00

-5.00 - -5.00

NE - NE

NE - NE

Unscheduled 7.1

n

0

0

1

1

Mean (SD)

NE (NE)

NE (NE)

50.00 (NE (NE))

7.00 (NE (NE))

Median

NE

NE

50.00

7.00

Min - Max

NE - NE

NE - NE

50.00 - 50.00

7.00 - 7.00

Unscheduled 8.2

n

1

1

1

1

Mean (SD)

36.00 (NE (NE))

7.00 (NE (NE))

41.00 (NE (NE))

-10.00 (NE (NE))

Median

36.00

7.00

41.00

-10.00

Min - Max

36.00 - 36.00

7.00 - 7.00

41.00 - 41.00

-10.00 - -10.00

Unscheduled 9.2

n

1

1

0

0

Mean (SD)

52.00 (NE (NE))

-15.00 (NE (NE))

NE (NE)

NE (NE)

Median

52.00

-15.00

NE

NE

Min - Max

52.00 - 52.00

-15.00 - -15.00

NE - NE

NE - NE

Week 12

n

67

67

50

50

Mean (SD)

101.81 (78.66)

11.07 (68.81)

96.62 (60.55)

-2.28 (65.26)

Median

77.00

3.00

84.50

-4.00

Min - Max

31.00 - 532.00

-160.00 - 434.00

26.00 - 316.00

-332.00 - 243.00

Week 16

n

68

68

37

37

Mean (SD)

104.85 (66.37)

14.90 (53.61)

86.14 (47.70)

-0.95 (23.02)

Median

89.00

4.00

76.00

-3.00

Min - Max

27.00 - 365.00

-157.00 - 213.00

31.00 - 276.00

-70.00 - 51.00

Week 2

n

83

83

70

70

Mean (SD)

90.29 (66.11)

4.10 (57.83)

94.13 (51.91)

-12.29 (53.50)

Median

75.00

-4.00

75.50

-1.50

Min - Max

22.00 - 536.00

-162.00 - 421.00

31.00 - 325.00

-344.00 - 92.00

Week 20

n

65

65

31

31

Mean (SD)

93.80 (46.56)

3.34 (38.86)

97.55 (68.57)

7.65 (28.73)

Median

87.00

2.00

82.00

4.00

Min - Max

30.00 - 209.00

-150.00 - 121.00

29.00 - 352.00

-56.00 - 99.00

Week 24

n

57

57

30

30

Mean (SD)

127.37 (207.98)

35.61 (199.06)

90.87 (53.97)

1.17 (22.13)

Median

86.00

3.00

72.00

3.50

Min - Max

24.00 - 1556.00

-158.00 - 1414.00

41.00 - 287.00

-52.00 - 56.00

Week 26

n

57

57

27

27

Mean (SD)

94.09 (51.03)

3.37 (42.85)

92.96 (59.94)

3.89 (44.82)

Median

79.00

2.00

77.00

-2.00

Min - Max

18.00 - 233.00

-156.00 - 94.00

25.00 - 302.00

-118.00 - 130.00

Week 4

n

79

79

72

72

Mean (SD)

96.89 (124.45)

10.28 (115.77)

100.61 (58.39)

-4.86 (53.87)

Median

76.00

0.00

79.50

0.50

Min - Max

20.00 - 1125.00

-164.00 - 985.00

30.00 - 300.00

-321.00 - 126.00

Week 6

n

73

73

66

66

Mean (SD)

88.01 (42.36)

0.88 (38.63)

123.55 (227.36)

17.18 (187.49)

Median

80.00

0.00

76.00

-7.00

Min - Max

25.00 - 224.00

-161.00 - 100.00

27.00 - 1860.00

-281.00 - 1416.00

Week 8

n

72

72

56

56

Mean (SD)

93.85 (45.84)

3.31 (42.58)

91.75 (52.25)

-8.84 (58.42)

Median

83.50

1.50

77.00

-3.50

Min - Max

28.00 - 260.00

-156.00 - 168.00

37.00 - 317.00

-299.00 - 173.00

This is a demo table for illustration purpose.

Program: demo_poc_docx.R
Date: 2024-11-06
Version: 0.0.1

Advanced Customizations

You can further customize your tables, such as setting column widths, handling pagination, and more.

Column Widths

cw <- propose_column_widths(result)
cw <- cw / sum(cw)
cw <- c(0.6, 0.1, 0.1, 0.1, 0.1)
spd <- section_properties_default(orientation = "landscape")
fin_cw <- cw * spd$page_size$width / 2 / sum(cw)

flex_tbl <- tt_to_flextable(result,
  total_page_width = spd$page_size$width / 2,
  counts_in_newline = TRUE,
  autofit_to_page = FALSE,
  bold_titles = TRUE,
  colwidths = cw
)

export_as_docx(flex_tbl, file = tf)
Warning in FUN(X[[i]], ...): The total table width does not match the page
width. The column widths will be resized to fit the page. Please consider
modifying the parameter total_page_width in tt_to_flextable().
flex_tbl

Alanine Aminotransferase Measurement

This is a subtitle.

This is another subtitle.

Parameter

Placebo
(N=1946)

Xanomeline High Dose
(N=1472)

Analysis Visit

Value at Visit

Change from Baseline

Value at Visit

Change from Baseline

Alanine Aminotransferase (U/L)

Ambul Ecg Removal

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Baseline

n

86

72

Mean (SD)

17.57 (9.22)

19.17 (10.25)

Median

15.00

16.50

Min - Max

7.00 - 69.00

6.00 - 64.00

POST-BASELINE LAST

n

83

83

72

72

Mean (SD)

16.64 (10.83)

-0.96 (8.08)

18.90 (6.49)

-0.15 (8.14)

Median

14.00

-1.00

18.50

1.00

Min - Max

3.00 - 95.00

-31.00 - 45.00

8.00 - 43.00

-38.00 - 18.00

POST-BASELINE MAXIMUM

n

83

83

72

72

Mean (SD)

23.94 (18.05)

6.34 (14.68)

26.67 (16.13)

7.61 (14.55)

Median

19.00

4.00

23.00

5.00

Min - Max

8.00 - 124.00

-10.00 - 111.00

11.00 - 129.00

-10.00 - 119.00

POST-BASELINE MINIMUM

n

83

83

72

72

Mean (SD)

13.40 (10.41)

-4.20 (7.69)

16.12 (5.60)

-2.93 (7.05)

Median

12.00

-3.00

15.00

-2.00

Min - Max

3.00 - 95.00

-34.00 - 45.00

7.00 - 35.00

-38.00 - 9.00

Retrieval

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 1.1

n

8

8

6

6

Mean (SD)

22.12 (13.78)

0.00 (0.00)

24.00 (18.58)

0.50 (1.22)

Median

17.00

0.00

16.50

0.00

Min - Max

14.00 - 55.00

0.00 - 0.00

12.00 - 61.00

0.00 - 3.00

Unscheduled 1.2

n

1

1

1

1

Mean (SD)

18.00 (NE (NE))

0.00 (NE (NE))

14.00 (NE (NE))

0.00 (NE (NE))

Median

18.00

0.00

14.00

0.00

Min - Max

18.00 - 18.00

0.00 - 0.00

14.00 - 14.00

0.00 - 0.00

Unscheduled 1.3

n

1

1

0

0

Mean (SD)

11.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

11.00

0.00

NE

NE

Min - Max

11.00 - 11.00

0.00 - 0.00

NE - NE

NE - NE

Unscheduled 12.1

n

1

1

0

0

Mean (SD)

12.00 (NE (NE))

-3.00 (NE (NE))

NE (NE)

NE (NE)

Median

12.00

-3.00

NE

NE

Min - Max

12.00 - 12.00

-3.00 - -3.00

NE - NE

NE - NE

Unscheduled 13.1

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 4.1

n

1

1

0

0

Mean (SD)

95.00 (NE (NE))

45.00 (NE (NE))

NE (NE)

NE (NE)

Median

95.00

45.00

NE

NE

Min - Max

95.00 - 95.00

45.00 - 45.00

NE - NE

NE - NE

Unscheduled 4.2

n

1

1

0

0

Mean (SD)

92.00 (NE (NE))

42.00 (NE (NE))

NE (NE)

NE (NE)

Median

92.00

42.00

NE

NE

Min - Max

92.00 - 92.00

42.00 - 42.00

NE - NE

NE - NE

Unscheduled 5.1

n

1

1

0

0

Mean (SD)

73.00 (NE (NE))

23.00 (NE (NE))

NE (NE)

NE (NE)

Median

73.00

23.00

NE

NE

Min - Max

73.00 - 73.00

23.00 - 23.00

NE - NE

NE - NE

Unscheduled 6.1

n

1

1

0

0

Mean (SD)

17.00 (NE (NE))

-5.00 (NE (NE))

NE (NE)

NE (NE)

Median

17.00

-5.00

NE

NE

Min - Max

17.00 - 17.00

-5.00 - -5.00

NE - NE

NE - NE

Unscheduled 7.1

n

0

0

1

1

Mean (SD)

NE (NE)

NE (NE)

12.00 (NE (NE))

1.00 (NE (NE))

Median

NE

NE

12.00

1.00

Min - Max

NE - NE

NE - NE

12.00 - 12.00

1.00 - 1.00

Unscheduled 8.2

n

1

1

1

1

Mean (SD)

13.00 (NE (NE))

1.00 (NE (NE))

42.00 (NE (NE))

32.00 (NE (NE))

Median

13.00

1.00

42.00

32.00

Min - Max

13.00 - 13.00

1.00 - 1.00

42.00 - 42.00

32.00 - 32.00

Unscheduled 9.2

n

1

1

0

0

Mean (SD)

9.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

9.00

0.00

NE

NE

Min - Max

9.00 - 9.00

0.00 - 0.00

NE - NE

NE - NE

Week 12

n

67

67

50

50

Mean (SD)

18.00 (9.16)

0.16 (7.39)

20.98 (10.18)

0.90 (8.78)

Median

16.00

0.00

19.00

1.00

Min - Max

6.00 - 64.00

-21.00 - 34.00

9.00 - 70.00

-38.00 - 20.00

Week 16

n

68

68

37

37

Mean (SD)

17.06 (7.39)

-0.65 (6.84)

19.57 (7.61)

-0.03 (7.20)

Median

15.00

0.00

19.00

1.00

Min - Max

5.00 - 48.00

-34.00 - 14.00

7.00 - 38.00

-26.00 - 17.00

Week 2

n

83

83

70

70

Mean (SD)

17.99 (12.53)

0.29 (7.80)

21.17 (8.87)

2.19 (6.55)

Median

15.00

-1.00

19.00

2.00

Min - Max

6.00 - 104.00

-14.00 - 54.00

8.00 - 49.00

-31.00 - 17.00

Week 20

n

65

65

31

31

Mean (SD)

16.06 (6.56)

-1.75 (6.24)

19.58 (6.82)

-0.26 (8.33)

Median

14.00

-1.00

19.00

1.00

Min - Max

7.00 - 48.00

-34.00 - 18.00

9.00 - 35.00

-26.00 - 13.00

Week 24

n

57

57

30

30

Mean (SD)

17.86 (15.61)

-0.14 (16.19)

20.97 (8.70)

0.27 (8.00)

Median

14.00

-2.00

18.50

0.00

Min - Max

5.00 - 124.00

-28.00 - 111.00

9.00 - 43.00

-24.00 - 15.00

Week 26

n

57

57

27

27

Mean (SD)

16.02 (5.98)

-1.84 (6.41)

18.85 (7.02)

-1.93 (6.65)

Median

15.00

-1.00

18.00

-1.00

Min - Max

3.00 - 31.00

-31.00 - 12.00

8.00 - 39.00

-22.00 - 8.00

Week 4

n

79

79

72

72

Mean (SD)

18.66 (12.91)

0.80 (8.50)

21.31 (9.51)

2.25 (7.00)

Median

16.00

0.00

20.00

1.00

Min - Max

6.00 - 107.00

-13.00 - 57.00

8.00 - 61.00

-28.00 - 21.00

Week 6

n

73

73

66

66

Mean (SD)

16.96 (9.92)

-0.37 (7.23)

21.23 (9.49)

1.71 (6.01)

Median

15.00

-1.00

19.00

2.00

Min - Max

4.00 - 76.00

-15.00 - 46.00

10.00 - 60.00

-19.00 - 15.00

Week 8

n

72

72

56

56

Mean (SD)

16.72 (9.34)

-0.96 (5.33)

22.79 (17.49)

3.34 (17.22)

Median

15.00

-1.00

18.00

1.00

Min - Max

7.00 - 63.00

-17.00 - 14.00

10.00 - 129.00

-29.00 - 119.00

Creatinine Kinase (U/L)

Ambul Ecg Removal

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Baseline

n

86

72

Mean (SD)

86.94 (43.71)

105.39 (73.94)

Median

80.00

81.00

Min - Max

27.00 - 239.00

28.00 - 444.00

POST-BASELINE LAST

n

83

83

72

72

Mean (SD)

104.99 (167.15)

19.04 (159.63)

96.31 (65.39)

-9.17 (66.52)

Median

77.00

1.00

79.50

-6.50

Min - Max

18.00 - 1556.00

-156.00 - 1414.00

25.00 - 429.00

-332.00 - 306.00

POST-BASELINE MAXIMUM

n

83

83

72

72

Mean (SD)

163.60 (215.36)

77.65 (202.06)

152.79 (218.53)

47.32 (174.68)

Median

100.00

26.00

104.00

18.50

Min - Max

29.00 - 1556.00

-150.00 - 1414.00

38.00 - 1860.00

-92.00 - 1416.00

POST-BASELINE MINIMUM

n

83

83

72

72

Mean (SD)

66.78 (29.37)

-19.17 (28.88)

74.40 (37.17)

-31.07 (50.64)

Median

62.00

-13.00

66.50

-18.00

Min - Max

18.00 - 140.00

-164.00 - 51.00

25.00 - 212.00

-344.00 - 25.00

Retrieval

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 1.1

n

8

8

6

6

Mean (SD)

71.50 (17.11)

0.00 (0.00)

100.17 (53.82)

-4.33 (10.61)

Median

69.50

0.00

79.00

0.00

Min - Max

41.00 - 92.00

0.00 - 0.00

68.00 - 209.00

-26.00 - 0.00

Unscheduled 1.2

n

1

1

1

1

Mean (SD)

182.00 (NE (NE))

0.00 (NE (NE))

108.00 (NE (NE))

0.00 (NE (NE))

Median

182.00

0.00

108.00

0.00

Min - Max

182.00 - 182.00

0.00 - 0.00

108.00 - 108.00

0.00 - 0.00

Unscheduled 1.3

n

1

1

0

0

Mean (SD)

85.00 (NE (NE))

0.00 (NE (NE))

NE (NE)

NE (NE)

Median

85.00

0.00

NE

NE

Min - Max

85.00 - 85.00

0.00 - 0.00

NE - NE

NE - NE

Unscheduled 12.1

n

1

1

0

0

Mean (SD)

59.00 (NE (NE))

-2.00 (NE (NE))

NE (NE)

NE (NE)

Median

59.00

-2.00

NE

NE

Min - Max

59.00 - 59.00

-2.00 - -2.00

NE - NE

NE - NE

Unscheduled 13.1

n

0

0

0

0

Mean (SD)

NE (NE)

NE (NE)

NE (NE)

NE (NE)

Median

NE

NE

NE

NE

Min - Max

NE - NE

NE - NE

NE - NE

NE - NE

Unscheduled 4.1

n

1

1

0

0

Mean (SD)

52.00 (NE (NE))

11.00 (NE (NE))

NE (NE)

NE (NE)

Median

52.00

11.00

NE

NE

Min - Max

52.00 - 52.00

11.00 - 11.00

NE - NE

NE - NE

Unscheduled 4.2

n

1

1

0

0

Mean (SD)

42.00 (NE (NE))

1.00 (NE (NE))

NE (NE)

NE (NE)

Median

42.00

1.00

NE

NE

Min - Max

42.00 - 42.00

1.00 - 1.00

NE - NE

NE - NE

Unscheduled 5.1

n

1

1

0

0

Mean (SD)

40.00 (NE (NE))

-1.00 (NE (NE))

NE (NE)

NE (NE)

Median

40.00

-1.00

NE

NE

Min - Max

40.00 - 40.00

-1.00 - -1.00

NE - NE

NE - NE

Unscheduled 6.1

n

1

1

0

0

Mean (SD)

85.00 (NE (NE))

-5.00 (NE (NE))

NE (NE)

NE (NE)

Median

85.00

-5.00

NE

NE

Min - Max

85.00 - 85.00

-5.00 - -5.00

NE - NE

NE - NE

Unscheduled 7.1

n

0

0

1

1

Mean (SD)

NE (NE)

NE (NE)

50.00 (NE (NE))

7.00 (NE (NE))

Median

NE

NE

50.00

7.00

Min - Max

NE - NE

NE - NE

50.00 - 50.00

7.00 - 7.00

Unscheduled 8.2

n

1

1

1

1

Mean (SD)

36.00 (NE (NE))

7.00 (NE (NE))

41.00 (NE (NE))

-10.00 (NE (NE))

Median

36.00

7.00

41.00

-10.00

Min - Max

36.00 - 36.00

7.00 - 7.00

41.00 - 41.00

-10.00 - -10.00

Unscheduled 9.2

n

1

1

0

0

Mean (SD)

52.00 (NE (NE))

-15.00 (NE (NE))

NE (NE)

NE (NE)

Median

52.00

-15.00

NE

NE

Min - Max

52.00 - 52.00

-15.00 - -15.00

NE - NE

NE - NE

Week 12

n

67

67

50

50

Mean (SD)

101.81 (78.66)

11.07 (68.81)

96.62 (60.55)

-2.28 (65.26)

Median

77.00

3.00

84.50

-4.00

Min - Max

31.00 - 532.00

-160.00 - 434.00

26.00 - 316.00

-332.00 - 243.00

Week 16

n

68

68

37

37

Mean (SD)

104.85 (66.37)

14.90 (53.61)

86.14 (47.70)

-0.95 (23.02)

Median

89.00

4.00

76.00

-3.00

Min - Max

27.00 - 365.00

-157.00 - 213.00

31.00 - 276.00

-70.00 - 51.00

Week 2

n

83

83

70

70

Mean (SD)

90.29 (66.11)

4.10 (57.83)

94.13 (51.91)

-12.29 (53.50)

Median

75.00

-4.00

75.50

-1.50

Min - Max

22.00 - 536.00

-162.00 - 421.00

31.00 - 325.00

-344.00 - 92.00

Week 20

n

65

65

31

31

Mean (SD)

93.80 (46.56)

3.34 (38.86)

97.55 (68.57)

7.65 (28.73)

Median

87.00

2.00

82.00

4.00

Min - Max

30.00 - 209.00

-150.00 - 121.00

29.00 - 352.00

-56.00 - 99.00

Week 24

n

57

57

30

30

Mean (SD)

127.37 (207.98)

35.61 (199.06)

90.87 (53.97)

1.17 (22.13)

Median

86.00

3.00

72.00

3.50

Min - Max

24.00 - 1556.00

-158.00 - 1414.00

41.00 - 287.00

-52.00 - 56.00

Week 26

n

57

57

27

27

Mean (SD)

94.09 (51.03)

3.37 (42.85)

92.96 (59.94)

3.89 (44.82)

Median

79.00

2.00

77.00

-2.00

Min - Max

18.00 - 233.00

-156.00 - 94.00

25.00 - 302.00

-118.00 - 130.00

Week 4

n

79

79

72

72

Mean (SD)

96.89 (124.45)

10.28 (115.77)

100.61 (58.39)

-4.86 (53.87)

Median

76.00

0.00

79.50

0.50

Min - Max

20.00 - 1125.00

-164.00 - 985.00

30.00 - 300.00

-321.00 - 126.00

Week 6

n

73

73

66

66

Mean (SD)

88.01 (42.36)

0.88 (38.63)

123.55 (227.36)

17.18 (187.49)

Median

80.00

0.00

76.00

-7.00

Min - Max

25.00 - 224.00

-161.00 - 100.00

27.00 - 1860.00

-281.00 - 1416.00

Week 8

n

72

72

56

56

Mean (SD)

93.85 (45.84)

3.31 (42.58)

91.75 (52.25)

-8.84 (58.42)

Median

83.50

1.50

77.00

-3.50

Min - Max

28.00 - 260.00

-156.00 - 168.00

37.00 - 317.00

-299.00 - 173.00

This is a demo table for illustration purpose.

Program: demo_poc_docx.R
Date: 2024-11-06
Version: 0.0.1

Slides
teal applications
Source Code
---
title: "Documents"
order: 2
---

```{r setup script, include=FALSE, purl=FALSE}
invisible_hook_purl <- function(before, options, ...) {
  knitr::hook_purl(before, options, ...)
  NULL
}
knitr::knit_hooks$set(purl = invisible_hook_purl)
```

# Introduction

Below is a step-by-step guide demonstrating how to use `{rtables.officer}` for creating and exporting a clinical trial results table as a docx document.

# Setup and Data Preparation

Load the necessary libraries and prepare the dataset:

```{r}
library(tern)
library(dplyr)
library(rtables.officer)

# Load example datasets
adsl <- pharmaverseadam::adsl
adlb <- pharmaverseadam::adlb

# Convert character variables to factors and handle missing levels
adsl <- df_explicit_na(adsl)
adlb <- df_explicit_na(adlb)

# Create a temporary file for the output
tf <- tempfile(fileext = ".docx")
```
# Data Filtering
Filter the dataset for specific parameters and visits:

```{r}
adlb_f <- adlb %>%
  dplyr::filter(
    PARAM %in% c("Alanine Aminotransferase (U/L)", "Creatinine Kinase (U/L)") &
      !(ACTARM == "B: Placebo" & AVISIT == "Week 2")
  )
```
# Define Custom Analysis Function
Create a custom function to perform the analysis:

```{r}
afun <- function(x, .var, .spl_context, ...) {
  n_fun <- sum(!is.na(x), na.rm = TRUE)
  mean_sd_fun <- if (n_fun == 0) c(NA, NA) else c(mean(x, na.rm = TRUE), sd(x, na.rm = TRUE))
  median_fun <- if (n_fun == 0) NA else median(x, na.rm = TRUE)
  min_max_fun <- if (n_fun == 0) c(NA, NA) else c(min(x), max(x))

  is_chg <- .var == "CHG"
  is_baseline <- .spl_context$value[which(.spl_context$split == "AVISIT")] == "Baseline"
  if (is_baseline && is_chg) n_fun <- mean_sd_fun <- median_fun <- min_max_fun <- NULL

  in_rows(
    "n" = n_fun,
    "Mean (SD)" = mean_sd_fun,
    "Median" = median_fun,
    "Min - Max" = min_max_fun,
    .formats = list("n" = "xx", "Mean (SD)" = "xx.xx (xx.xx)", "Median" = "xx.xx", "Min - Max" = "xx.xx - xx.xx"),
    .format_na_strs = list("n" = "NE", "Mean (SD)" = "NE (NE)", "Median" = "NE", "Min - Max" = "NE - NE")
  )
}
```

# Define Table Layout
Create the layout for the table:

```{r}
lyt <- basic_table() %>%
  split_cols_by("ACTARM", show_colcounts = TRUE, split_fun = keep_split_levels(levels(adlb_f$ACTARM)[c(1, 2)])) %>%
  split_rows_by("PARAM",
    split_fun = drop_split_levels, label_pos = "topleft",
    split_label = obj_label(adlb_f$PARAM), page_by = TRUE
  ) %>%
  split_rows_by("AVISIT",
    split_fun = drop_split_levels, label_pos = "topleft",
    split_label = obj_label(adlb_f$AVISIT)
  ) %>%
  split_cols_by_multivar(
    vars = c("AVAL", "CHG"),
    varlabels = c("Value at Visit", "Change from Baseline")
  ) %>%
  analyze_colvars(afun = afun)
```

# Build and Display the Table
Build the table using the defined layout:

```{r}
result <- build_table(lyt, adlb_f)
result
```
Assign titles and footers:

```{r}
main_title(result) <- "Alanine Aminotransferase Measurement"
subtitles(result) <- c("This is a subtitle.", "This is another subtitle.")
main_footer(result) <- "This is a demo table for illustration purpose."
prov_footer(result) <- "Program: demo_poc_docx.R\nDate: 2024-11-06\nVersion: 0.0.1\n"
```

# Convert to `flextable` and Export to Word
Convert the table to a `flextable` object and export it to a Word document:

```{r}
flx_res <- tt_to_flextable(result)
export_as_docx(flx_res,
  file = tf,
  section_properties = section_properties_default(orientation = "landscape")
)
flx_res
```
## Advanced Customizations
You can further customize your tables, such as setting column widths, handling pagination, and more.

### Column Widths
```{r}
cw <- propose_column_widths(result)
cw <- cw / sum(cw)
cw <- c(0.6, 0.1, 0.1, 0.1, 0.1)
spd <- section_properties_default(orientation = "landscape")
fin_cw <- cw * spd$page_size$width / 2 / sum(cw)

flex_tbl <- tt_to_flextable(result,
  total_page_width = spd$page_size$width / 2,
  counts_in_newline = TRUE,
  autofit_to_page = FALSE,
  bold_titles = TRUE,
  colwidths = cw
)

export_as_docx(flex_tbl, file = tf)
flex_tbl
```
 
Cookie Preferences