disabling examples

.Renviron

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

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,

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

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")))
 }