In metrumresearchgroup/pmtables: Tables for Pharmacometrics

library(dplyr)
library(purrr)
library(pmtables)

\clearpage

Notes are sanitized

x <- ptdata() %>% st_new(notes = "EDA_summary = TRUE") %>% 
  st_make(inspect = TRUE) %>% 
  get_stable_data() 

x$notes

\clearpage

File names are sanitized

x <- ptdata() %>% st_new() %>% 
  st_files(r = "my_script.R") %>% 
  st_make(inspect = TRUE) %>% 
  get_stable_data() 

x$notes

Column names are sanitized

out <- 
  tibble(a_1 = 5) %>% 
  stable(inspect = TRUE) %>% 
  get_stable_data()

out$cols_new

Data are sanitized

out <- 
  tibble(a = "5_2") %>% 
  stable(inspect = TRUE) %>% 
  get_stable_data()

out$tab

Span titles - sanitized

out <- 
  ptdata() %>% 
  stable(inspect = TRUE, span = colgroup("foo_this", WT:SCR)) %>% 
  get_stable_data()

out$span_data

Panel names

data <- tibble(a = c("a_1", "a_1", "a_1", "a_2", "a_2"), 
               b = letters[1:5])

out <- stable(data, panel = "a") 
out[grepl("multicolumn", out)]

cols_extra input

x <- letters[1:5]
data <- tibble(a = x, b = x, c = x)
xtra <- tibble(a = "foo%", b = "$\\mu$g", c = "1234 \\% %")
out <- stable(data, cols_extra = xtra)
out[grepl("%", out, fixed = TRUE)]