inst/apps/column-buttons/global.R

library(tidyverse)

CapStr <- function(y) {
  c <- strsplit(y, " ")[[1]]
  paste(toupper(substring(c, 1,1)), substring(c, 2),
        sep="", collapse=" ")
}

dummy <- data.frame(age = c(20,30,50,60,70,90,40,20,40,30),
                    sex = c(rep("male", 5), rep("female", 5)),
                    ethnicity  = c("Hispanic or Latino", "Not Hispanic or Latino", "Hispanic or Latino", "Hispanic or Latino", "Hispanic or Latino",
                                   "Not Hispanic or Latino","Not Hispanic or Latino","Hispanic or Latino", "Hispanic or Latino", "Hispanic or Latino"),
                    treatment = c(rep("control", 5), rep("treatment", 5)),
                    dose = c(seq(1:5), seq(1:5)))
MayaGans/TableGenerator documentation built on Nov. 11, 2019, 3:14 p.m.