Skip to contents

# DEPRICATED Create zips file with necessary content based on data set

Source: `R/export_redcap_instrument.R`
`create_instrument_meta.Rd`

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

    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

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