2024-04-12 12:18:58 +02:00
|
|
|
% Generated by roxygen2: do not edit by hand
|
2024-10-24 11:41:48 +02:00
|
|
|
% Please edit documentation in R/export_redcap_instrument.R
|
2024-04-12 12:18:58 +02:00
|
|
|
\name{create_instrument_meta}
|
|
|
|
\alias{create_instrument_meta}
|
2024-10-24 11:41:48 +02:00
|
|
|
\title{DEPRICATED Create zips file with necessary content based on data set}
|
2024-04-12 12:18:58 +02:00
|
|
|
\usage{
|
|
|
|
create_instrument_meta(data, dir = here::here(""), record.id = TRUE)
|
|
|
|
}
|
|
|
|
\arguments{
|
|
|
|
\item{data}{metadata for the relevant instrument.
|
|
|
|
Could be from `ds2dd_detailed()`}
|
|
|
|
|
|
|
|
\item{dir}{destination dir for the instrument zip. Default is the current WD.}
|
|
|
|
|
|
|
|
\item{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
|
|
|
|
}
|
|
|
|
\description{
|
|
|
|
Metadata can be added by editing the data dictionary of a project in the
|
2024-10-24 11:41:48 +02:00
|
|
|
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.
|
2024-04-12 12:18:58 +02:00
|
|
|
}
|
|
|
|
\examples{
|
|
|
|
data <- iris |>
|
2024-10-24 11:41:48 +02:00
|
|
|
ds2dd_detailed(
|
|
|
|
add.auto.id = TRUE,
|
|
|
|
form.name = sample(c("b", "c"),
|
|
|
|
size = 6,
|
|
|
|
replace = TRUE, prob = rep(.5, 2)
|
|
|
|
)
|
|
|
|
) |>
|
2024-04-12 12:18:58 +02:00
|
|
|
purrr::pluck("meta")
|
|
|
|
# data |> create_instrument_meta()
|
|
|
|
|
|
|
|
data <- iris |>
|
|
|
|
ds2dd_detailed(add.auto.id = FALSE) |>
|
|
|
|
purrr::pluck("data")
|
2024-10-24 11:41:48 +02:00
|
|
|
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 = "__")
|
2024-04-12 12:18:58 +02:00
|
|
|
# data |>
|
|
|
|
# purrr::pluck("meta") |>
|
|
|
|
# create_instrument_meta(record.id = FALSE)
|
|
|
|
}
|