In biostatsPMH/reportRx: Tools for automatically generating reproducible clinical report

knitr::opts_chunk$set(echo = FALSE,warning = FALSE,message = FALSE)
library(tidyverse)
#library(reportRx)
devtools::load_all()
#library(createBibfile)
theme_set(theme_bw())

Unadjusted Font Size

data("mtcars")
mtcars$Gears <- as.factor(mtcars$gear)
mtcars$Cylinders <- as.factor(mtcars$cyl)
mtcars$Transmission <- factor(mtcars$am,levels=0:1,labels=c('Automatic','Manual'))
rm_covsum(data=mtcars,
          maincov = 'Gears',
          covs=c('mpg','Cylinders','qsec'),show.tests=T)

Larger Font Size

tab <- rm_covsum(data=mtcars,
          maincov = 'Gears',
          covs=c('mpg','Cylinders','qsec'),show.tests=F,tableOnly = T)
outTable(tab,fontsize = 13)

Super Long Table

tab <-rm_covsum(data=mtcars,
          maincov = 'Gears',
          covs=c('mpg','Cylinders','qsec'),show.tests=T,tableOnly = T)
newtab <- rbind(tab,tab,tab,tab,tab,tab,tab,tab)
outTable(newtab)

biostatsPMH/reportRx documentation built on April 16, 2024, 4:57 p.m.