Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(tidyREDCap)
## ----eval=FALSE---------------------------------------------------------------
# tidyREDCap::import_instruments(
# url = "https://bbmc.ouhsc.edu/redcap/api/",
# token = Sys.getenv("REDCapR_test")
# )
## ----hidden-data-load, echo=FALSE---------------------------------------------
demographics <- structure(
list(
record_id = c(1, 2, 3, 4, 5),
name_first = structure(
c("Nutmeg", "Tumtum", "Marcus", "Trudy", "John Lee"),
label = "First Name",
class = c("labelled", "character")
),
name_last = structure(
c("Nutmouse", "Nutmouse", "Wood", "DAG", "Walker"),
label = "Last Name",
class = c("labelled", "character")
),
address = structure(
c(
"14 Rose Cottage St.\nKenning UK, 323232",
"14 Rose Cottage Blvd.\nKenning UK 34243",
"243 Hill St.\nGuthrie OK 73402",
"342 Elm\nDuncanville TX, 75116",
"Hotel Suite\nNew Orleans LA, 70115"
),
label = "Street, City, State, ZIP",
class = c("labelled", "character")
),
telephone = structure(
c(
"(405) 321-1111",
"(405) 321-2222",
"(405) 321-3333",
"(405) 321-4444",
"(405) 321-5555"
),
label = "Phone number",
class = c("labelled", "character")
), email = structure(
c(
"nutty@mouse.com",
"tummy@mouse.comm",
"mw@mwood.net",
"peroxide@blonde.com",
"left@hippocket.com"
),
label = "E-mail",
class = c("labelled", "character")
),
dob = structure(
c(12294, 12121, -13051, -6269, -5375),
class = c("labelled", "Date"),
label = "Date of birth"
),
age = structure(
c(11, 11, 80, 61, 59),
label = "Age (years)",
class = c("labelled", "numeric")
),
sex = structure(
c("Female", "Male", "Male", "Female", "Male"),
label = "Gender",
class = c("labelled", "character")
),
demographics_complete = structure(
c("Complete", "Complete", "Complete", "Complete", "Complete"),
label = "Complete?...10",
class = c("labelled", "character")
)
),
row.names = c(NA, -5L),
class = "data.frame"
)
## ----eval=FALSE---------------------------------------------------------------
# View(demographics)
## ----skim-demo, error=TRUE----------------------------------------------------
library(skimr) # for the skim() function
demographics |> skim()
## -----------------------------------------------------------------------------
demographics_changed <- drop_label(demographics, "first_name")
## -----------------------------------------------------------------------------
demographics_without_labels <- drop_labels(demographics)
demographics_without_labels |>
skim()
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.