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

43
man/export_redcap_instrument.Rd
View file

@ -10,9 +10,12 @@ export_redcap_instrument(data, file, force = FALSE, record.id = "record_id")
\item{data}{metadata for the relevant instrument.
Could be from `ds2dd_detailed()`}
\item{record.id}{record id variable name. Default is 'record_id'.}
\item{file}{destination file name.}
\item{dir}{destination dir for the instrument zip. Default is the current WD.}
\item{force}{force instrument creation and ignore different form names by
just using the first.}
\item{record.id}{record id variable name. Default is 'record_id'.}
}
\value{
exports zip-file
@ -24,23 +27,23 @@ function can be used to create (an) instrument(s) to add to a project in
production.
}
\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")))
}