mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2025-12-16 17:42:10 +01:00
61 lines
1.3 KiB
Markdown
61 lines
1.3 KiB
Markdown
# DEPRICATED Create zips file with necessary content based on data set
|
|
|
|
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
|
|
function can be used to create (an) instrument(s) to add to a project in
|
|
production.
|
|
|
|
## Usage
|
|
|
|
``` r
|
|
create_instrument_meta(data, dir = here::here(""), record.id = TRUE)
|
|
```
|
|
|
|
## Arguments
|
|
|
|
- data:
|
|
|
|
metadata for the relevant instrument. Could be from
|
|
\`ds2dd_detailed()\`
|
|
|
|
- dir:
|
|
|
|
destination dir for the instrument zip. Default is the current WD.
|
|
|
|
- record.id:
|
|
|
|
flag to omit the first row of the data dictionary assuming this is the
|
|
record_id field which should not be included in the instrument.
|
|
Default is TRUE.
|
|
|
|
## Value
|
|
|
|
list
|
|
|
|
## Examples
|
|
|
|
``` r
|
|
if (FALSE) { # \dontrun{
|
|
data <- iris |>
|
|
ds2dd_detailed(
|
|
add.auto.id = TRUE,
|
|
form.name = sample(c("b", "c"),
|
|
size = 6,
|
|
replace = TRUE, prob = rep(.5, 2)
|
|
)
|
|
) |>
|
|
purrr::pluck("meta")
|
|
# data |> create_instrument_meta()
|
|
|
|
data <- iris |>
|
|
ds2dd_detailed(add.auto.id = FALSE) |>
|
|
purrr::pluck("data")
|
|
iris |>
|
|
setNames(glue::glue("{sample(x = c('a','b'),size = length(ncol(iris)),
|
|
replace=TRUE,prob = rep(x=.5,2))}__{names(iris)}")) |>
|
|
ds2dd_detailed(form.sep = "__")
|
|
data |>
|
|
purrr::pluck("meta") |>
|
|
create_instrument_meta(record.id = FALSE)
|
|
} # }
|
|
```
|