andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 05:07:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

disabling examples

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-10-24 11:56:29 +02:00
commit ff22ba05d8
No known key found for this signature in database
4 changed files with 46 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

40
R/export_redcap_instrument.R
View file

@ -8,31 +8,33 @@
#'
#' @param data metadata for the relevant instrument.
#' Could be from `ds2dd_detailed()`
#' @param dir destination dir for the instrument zip. Default is the current WD.
#' @param file destination file name.
#' @param force force instrument creation and ignore different form names by
#' just using the first.
#' @param record.id record id variable name. Default is 'record_id'.
#'
#' @return exports zip-file
#'
#' @examples
#' iris |>
#' ds2dd_detailed(
#' add.auto.id = TRUE,
#' form.name = sample(c("b", "c"), size = 6, replace = TRUE, prob = rep(.5, 2))
#' ) |>
#' purrr::pluck("meta") |>
#' (\(.x){
#' split(.x, .x$form_name)
#' })() |>
#' purrr::imap(function(.x, .i){
#' export_redcap_instrument(.x,file=here::here(paste0(.i,Sys.Date(),".zip")))
#' })
#' #iris |>
#' # ds2dd_detailed(
#' # add.auto.id = TRUE,
#' # form.name = sample(c("b", "c"), size = 6, replace = TRUE, prob = rep(.5, 2))
#' # ) |>
#' # purrr::pluck("meta") |>
#' # (\(.x){
#' # split(.x, .x$form_name)
#' # })() |>
#' # purrr::imap(function(.x, .i){
#' # export_redcap_instrument(.x,file=here::here(paste0(.i,Sys.Date(),".zip")))
#' # })
#'
#' iris |>
#' ds2dd_detailed(
#' add.auto.id = TRUE
#' ) |>
#' purrr::pluck("meta") |>
#' export_redcap_instrument(file=here::here(paste0("instrument",Sys.Date(),".zip")))
#' #iris |>
#' # ds2dd_detailed(
#' # add.auto.id = TRUE
#' # ) |>
#' # purrr::pluck("meta") |>
#' # export_redcap_instrument(file=here::here(paste0("instrument",Sys.Date(),".zip")))
export_redcap_instrument <- function(data,
file,
force=FALSE,