inst/doc/export.R

In REDCapExporter: Automated Construction of R Data Packages from REDCap Projects

## ----label = "setup", include = FALSE-----------------------------------------
knitr::opts_chunk$set(collapse = TRUE)
library(REDCapExporter)

## ----eval = FALSE-------------------------------------------------------------
#  vignette(topic = "api", package = "REDCapExporter")

## -----------------------------------------------------------------------------
data(avs_raw_core, package = "REDCapExporter")
str(avs_raw_core)

## -----------------------------------------------------------------------------
temppath <- tempdir()
build_r_data_package(x = avs_raw_core,
                     path = temppath,
                     author_roles = list(dewittp = c("cre", "aut")))

## -----------------------------------------------------------------------------
fs::dir_tree(temppath)

## -----------------------------------------------------------------------------
prj_dir <- list.dirs(temppath)
prj_dir <- prj_dir[grepl("/rcd\\d+$", prj_dir)]
t(read.dcf(paste(prj_dir, "DESCRIPTION", sep = "/")))

## -----------------------------------------------------------------------------
cat(readLines(paste(prj_dir[1], "LICENSE", sep = "/")), sep = "\n")

## -----------------------------------------------------------------------------
tar_ball <- devtools::build(pkg = prj_dir)
tar_ball

install.packages(pkgs = tar_ball, lib = temppath)


## ----eval = FALSE-------------------------------------------------------------
#  library(rcd14465, lib.loc = temppath)
#  

## ----include = FALSE----------------------------------------------------------
do.call(library, args = list(package = "rcd14465", character.only = TRUE, lib.loc = temppath))

## -----------------------------------------------------------------------------
data(package = "rcd14465")$results

## -----------------------------------------------------------------------------
library(data.table)
as.data.table(record)[, sum(goals), by = position]

## -----------------------------------------------------------------------------
print(sessionInfo(), local = FALSE)