Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, message=FALSE-----------------------------------------------------
library(tidyREDCap)
library(dplyr)
## -----------------------------------------------------------------------------
redcap <- readRDS(file = "./redcap_nacho_anxiety.rds")
redcap %>%
select(
# Select these two columns
record_id, redcap_event_name,
# And also select all columns between "nachos" and "nci_complete"
nachos:nci_complete
) %>%
# Make the table pretty
knitr::kable()
## -----------------------------------------------------------------------------
make_instrument(redcap, "concented", "enrollment_complete") %>%
knitr::kable()
## -----------------------------------------------------------------------------
make_instrument(redcap, "nachos", "nci_complete") %>%
knitr::kable()
## -----------------------------------------------------------------------------
make_instrument(
redcap,
"nachos", "nci_complete",
drop_which_when = TRUE
) %>%
knitr::kable()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.