elong0527/metalite.table1

Interactive table1

metalite.table1

Overview

A table for descriptive statistics is widely used in medical research and typically be the first table (i.e. table1) for a manuscript.

The metalite.table1 provide an interactive table1 to enhance the communication between statisticians and clinicians.

For use case in clinical trials, Chapter 4 of the R for clinical study reports and submission contains more details.

There are other R packages to create the table1:

• table1

Example:

library(metalite.table1)
metalite_table1(~ AGE + SEX + RACE + BMIBLGR1 | ARM, data = r2rtf::r2rtf_adsl, id = "USUBJID")

Installation

You can install the package via CRAN:

install.packages("metalite.table1")

Or, install from GitHub:

remotes::install_github("elong0527/metalite.table1")

Highlighted features

• Drill down listings
• Embedded histogram

metalite.table1's Issues

Output can not be displayed within an Rmarkdown for loop

Below is a reproducible Rmarkdown example.

Here is the current output structure

  htmltools::browsable(
    htmltools::tagList(metalite::meta_run(
      meta,
      var_listing = var_listing,
      download = download,
      type = type))
  )

---

title: "Untitled"
output: html_document
date: "2022-12-09"

knitr::opts_chunk$set(echo = TRUE)

devtools::load_all()

Not Working

for(i in 1:3){
  x <- metalite_table1(~ SEX | TRT01A, data = r2rtf::r2rtf_adsl, id = "USUBJID")
  print(x)
}

Working

x <- list()
for(i in 1:3){
  x[[i]] <- metalite_table1(~ SEX | TRT01A, data = r2rtf::r2rtf_adsl, id = "USUBJID")
}

htmltools::browsable(htmltools::tagList(x))

Working

x[[1]]

x[[2]]

x[[3]]

Specify first column width

refer #8

add an argument following reachable style from https://glin.github.io/reactable/reference/colDef.html

Option to display all levels of factors without any observations

It will be nice to have an option to display factor levels with no observed values.
In other words, add factor levels with 0 counts.

enable multiple groups in formula

• explore nested header

Install "interactive_table1.R", "label.R" and "reactable2.R"

It seems that R scripts like "interactive_table1.R", "label.R" and "reactable2.R" under R folder will not be installed automatically if using "install_github".

remove `remote:metalite` as a dependency

can we remove repeated row in loop of tables?

Hi Yilong,

Another thing is that if we can remove repeated rows from the loop of tables? for example in your code and results:

The underline red parts are repeated from table 1 and table 2 basically. It will be nice if there is an option to remove the second same thing from table 2. What do you think?

Thanks
Eric

font size adjustment and number of record to display like options in DT package?

Hi Yilong,

Is there a way to adjust the font size? The table has fixed width in QUARTO markdown HTML output. So, it will be nice if it can have the option to specify column width or font size to make it smaller. Also, you can see the table looks pretty busy when I have multiple visits under the same question.

Will an option for two level table be better layout?

Also, is there a way to limit the number of record to display when doing the frequency table? For date variable, I can only treat it as character. Then, it list 50 records in the first page in my QUARTO HTML output.

Thanks!

Specify page size

refer #8

add an argument following reachable style from https://glin.github.io/reactable/reference/reactable.html

how to install development version?

how to install the development version? I could not find it in your introduction page.
can this option to be used: defaultColDef = list(style = list(fontSize = '10px')) to change font size? thanks

enable formula without group

allow user to remove "total" column

Handling missing value when `group` contain missing values

Code below will report error if there is missing values in the ARM variable.

library(metalite.table1)
metalite_table1(~ AGE + SEX + RACE + BMIBLGR1 | ARM, data = r2rtf::r2rtf_adsl, id = "USUBJID")

We need an argument missing_group to handle:

1. `missing_group = "ignore": ignore missing value in group with proper message to user.
2. allow user specify missing as a separate group, the option should allow
   - missing_group = "count": Missing group should be counted into the total column and placed before "Total" column
   - missing_group = "display": Missing group should not be counted into the total column and placed after "Total" column