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

feat: default generic filename and ensure correct suffix

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-01-28 22:27:58 +01:00
commit 9d0f92d154
No known key found for this signature in database
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/export_redcap_instrument.R
View file

@ -36,10 +36,16 @@
#' # ) |> #' # ) |>
#' # 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(
file, data,
file=here::here(paste0("instrument_",Sys.Date(),".zip")),
force = FALSE, force = FALSE,
record.id = "record_id") { record.id = "record_id") {
# Ensure file name ends with .zip
if (!isTRUE(endsWith(file,".zip"))){
file <- paste0(file,".zip")
}
# Ensure form name is the same # Ensure form name is the same
if (force) { if (force) {
data$form_name <- data$form_name[1] data$form_name <- data$form_name[1]
@ -67,9 +73,10 @@ export_redcap_instrument <- function(data,
} }
#' DEPRICATED Create zips file with necessary content based on data set #' DEPRECATED Create zips file with necessary content based on data set
#' #'
#' @description #' @description
#' Use export_redcap_instrument()
#' Metadata can be added by editing the data dictionary of a project in the #' Metadata can be added by editing the data dictionary of a project in the
#' initial design phase. If you want to later add new instruments, this #' initial design phase. If you want to later add new instruments, this
#' function can be used to create (an) instrument(s) to add to a project in #' function can be used to create (an) instrument(s) to add to a project in

7
man/export_redcap_instrument.Rd
View file

@ -4,7 +4,12 @@
\alias{export_redcap_instrument} \alias{export_redcap_instrument}
\title{Creates zip-file with necessary content to manually add instrument to database} \title{Creates zip-file with necessary content to manually add instrument to database}
\usage{ \usage{
export_redcap_instrument(data, file, force = FALSE, record.id = "record_id") export_redcap_instrument(
data,
file = here::here(paste0("instrument_", Sys.Date(), ".zip")),
force = FALSE,
record.id = "record_id"
)
} }
\arguments{ \arguments{
\item{data}{metadata for the relevant instrument. \item{data}{metadata for the relevant instrument.