diff --git a/.Renviron b/.Renviron new file mode 100644 index 0000000..1f52e82 --- /dev/null +++ b/.Renviron @@ -0,0 +1 @@ +_R_CHECK_SYSTEM_CLOCK_=0 diff --git a/R/export_redcap_instrument.R b/R/export_redcap_instrument.R index e961621..a215be8 100644 --- a/R/export_redcap_instrument.R +++ b/R/export_redcap_instrument.R @@ -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, diff --git a/app/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf b/app/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf index 0b7d596..1607a80 100644 --- a/app/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf +++ b/app/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf @@ -5,6 +5,6 @@ account: agdamsbo server: shinyapps.io hostUrl: https://api.shinyapps.io/v1 appId: 11351429 -bundleId: 9263605 +bundleId: 9264087 url: https://agdamsbo.shinyapps.io/redcapcast/ version: 1 diff --git a/man/export_redcap_instrument.Rd b/man/export_redcap_instrument.Rd index bad6f2b..59ea176 100644 --- a/man/export_redcap_instrument.Rd +++ b/man/export_redcap_instrument.Rd @@ -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"))) }