andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-21 21:10:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

disabling examples

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-10-24 11:56:29 +02:00
parent 28beea676c
commit ff22ba05d8
No known key found for this signature in database
4 changed files with 46 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.Renviron Normal file
View File

@ -0,0 +1 @@
_R_CHECK_SYSTEM_CLOCK_=0

40
R/export_redcap_instrument.R
View File

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

2
app/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf
View File

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 11351429 appId: 11351429
bundleId: 9263605 bundleId: 9264087
url: https://agdamsbo.shinyapps.io/redcapcast/ url: https://agdamsbo.shinyapps.io/redcapcast/
version: 1 version: 1

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. \item{data}{metadata for the relevant instrument.
Could be from `ds2dd_detailed()`} 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{ \value{
exports zip-file exports zip-file
@ -24,23 +27,23 @@ function can be used to create (an) instrument(s) to add to a project in
production. production.
} }
\examples{ \examples{
iris |> #iris |>
ds2dd_detailed( # ds2dd_detailed(
add.auto.id = TRUE, # add.auto.id = TRUE,
form.name = sample(c("b", "c"), size = 6, replace = TRUE, prob = rep(.5, 2)) # form.name = sample(c("b", "c"), size = 6, replace = TRUE, prob = rep(.5, 2))
) |> # ) |>
purrr::pluck("meta") |> # purrr::pluck("meta") |>
(\(.x){ # (\(.x){
split(.x, .x$form_name) # split(.x, .x$form_name)
})() |> # })() |>
purrr::imap(function(.x, .i){ # purrr::imap(function(.x, .i){
export_redcap_instrument(.x,file=here::here(paste0(.i,Sys.Date(),".zip"))) # export_redcap_instrument(.x,file=here::here(paste0(.i,Sys.Date(),".zip")))
}) # })
iris |> #iris |>
ds2dd_detailed( # ds2dd_detailed(
add.auto.id = TRUE # add.auto.id = TRUE
) |> # ) |>
purrr::pluck("meta") |> # purrr::pluck("meta") |>
export_redcap_instrument(file=here::here(paste0("instrument",Sys.Date(),".zip"))) # export_redcap_instrument(file=here::here(paste0("instrument",Sys.Date(),".zip")))
} }