inst/doc/harmonization.R

In public.ctn0094data: De-Identified Data from CTN-0094

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load-data, echo = FALSE--------------------------------------------------
#library(public.ctn0094data)

## ---- echo = FALSE------------------------------------------------------------
library(kableExtra)
x <- public.ctn0094data::meta_substance_groups_uds

x$`CTN-0027` <- cell_spec(
  x$`CTN-0027`,
  color = ifelse(x$`CTN-0027` == "NO", "red", "black")
)

x$`CTN-0030` <- cell_spec(
  x$`CTN-0030`,
  color = ifelse(x$`CTN-0030` == "NO", "red", "black"),
)

x$`CTN-0051` <- cell_spec(
  x$`CTN-0051`,
  color = ifelse(x$`CTN-0051` == "NO", "red", "black")
)

kbl(x, escape = FALSE) %>%
  kable_styling("striped", full_width = FALSE)

## -----------------------------------------------------------------------------
sessionInfo()