inst/doc/Shiny-app.R

In REDCapCAST: REDCap Metadata Casting and Castellated Data Handling

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

## ----eval=FALSE---------------------------------------------------------------
# REDCapCAST::shiny_cast()

## -----------------------------------------------------------------------------
library(REDCapCAST)
ds <- REDCap_split(
    records = redcapcast_data,
    metadata = redcapcast_meta,
    forms = "all"
  ) |> 
  sanitize_split() |>
  redcap_wider() 
str(ds)

## -----------------------------------------------------------------------------
ds|> 
  ds2dd_detailed(metadata = names(REDCapCAST::redcapcast_meta))|>  
  purrr::pluck("data") |> 
  str()

## -----------------------------------------------------------------------------
ds|> 
  ds2dd_detailed(metadata = names(REDCapCAST::redcapcast_meta))|>  
  purrr::pluck("meta") |> 
  head(10)

## -----------------------------------------------------------------------------
ds_parsed <- redcapcast_data |> 
  dplyr::mutate(dplyr::across(dplyr::everything(),as.character)) |> 
  parse_data()
str(ds_parsed)

## -----------------------------------------------------------------------------
redcapcast_data |> 
  dplyr::mutate(dplyr::across(dplyr::everything(),as.character)) |> 
  parse_data(ignore.vars = c("record_id","cpr")) |> 
  str()

## -----------------------------------------------------------------------------
mtcars |> str()
mtcars |>
  numchar2fct(numeric.threshold = 6) |>
  str()

## -----------------------------------------------------------------------------
ds_parsed|>
  numchar2fct(numeric.threshold = 2) |>
  str()