diff --git a/R/data.R b/R/data.R new file mode 100644 index 0000000..b57e3e5 --- /dev/null +++ b/R/data.R @@ -0,0 +1,12 @@ +#' A data.frame with 4 columns and one row per valid SDTM version/IG/IG version +#' combination +#' +#' @format +#' \itemize{ +#' \item{SDTM}{The SDTM version} +#' \item{IG_NAME}{The implementation guide (IG) name being used} +#' \item{IG_VERSION}{The implemetation guide (IG) version} +#' \item{archived}{The SDTM version/IG pair has been archived (and should not +#' be used for current studies)} +#' } +"valid_versions" diff --git a/data-raw/valid_versions.R b/data-raw/valid_versions.R new file mode 100644 index 0000000..77ba67f --- /dev/null +++ b/data-raw/valid_versions.R @@ -0,0 +1,31 @@ +#' Create the structure for a new, valid SDTM version +#' +#' @inherit is_valid_sdtm_version +#' @return A tibble with columns for the above information +#' @keywords Internal +new_valid_sdtm_version <- function(sdtm_version, ig_name, ig_version, archived=FALSE) { + tibble::tibble( + SDTM=base::package_version(sdtm_version), + IG_NAME=ig_name, + IG_VERSION=base::package_version(ig_version), + archived=archived + ) +} + +valid_versions <- + dplyr::bind_rows( + new_valid_sdtm_version(sdtm_version=1.1, ig_name="SDTMIG", ig_version="3.1.1", archived=TRUE), + new_valid_sdtm_version(sdtm_version=1.2, ig_name="SDTMIG", ig_version="3.1.2", archived=TRUE), + new_valid_sdtm_version(sdtm_version=1.3, ig_name="SDTMIG", ig_version="3.1.3", archived=TRUE), + new_valid_sdtm_version(sdtm_version=1.3, ig_name="SDTMIG-MD", ig_version="1.0", archived=TRUE), + + new_valid_sdtm_version(sdtm_version=1.4, ig_name="SDTMIG", ig_version=3.2), + new_valid_sdtm_version(sdtm_version=1.4, ig_name="SDTMIG-AP", ig_version="1.0"), + new_valid_sdtm_version(sdtm_version=1.5, ig_name="SENDIG", ig_version=c("3.1", "3.1.1")), + new_valid_sdtm_version(sdtm_version=1.6, ig_name="SENDIG-DART", ig_version=1.1), + new_valid_sdtm_version(sdtm_version=1.7, ig_name="SDTMIG", ig_version=3.3), + new_valid_sdtm_version(sdtm_version=1.8, ig_name="SENDIG-AR", ig_version="1.0"), + new_valid_sdtm_version(sdtm_version="2.0", ig_name="SDTMIG", ig_version=3.4) + ) + +usethis::use_data(valid_versions, overwrite=TRUE) diff --git a/data/valid_versions.rda b/data/valid_versions.rda new file mode 100644 index 0000000..f475659 Binary files /dev/null and b/data/valid_versions.rda differ diff --git a/man/valid_versions.Rd b/man/valid_versions.Rd new file mode 100644 index 0000000..77c7e55 --- /dev/null +++ b/man/valid_versions.Rd @@ -0,0 +1,24 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{valid_versions} +\alias{valid_versions} +\title{A data.frame with 4 columns and one row per valid SDTM version/IG/IG version +combination} +\format{ +\itemize{ + \item{SDTM}{The SDTM version} + \item{IG_NAME}{The implementation guide (IG) name being used} + \item{IG_VERSION}{The implemetation guide (IG) version} + \item{archived}{The SDTM version/IG pair has been archived (and should not + be used for current studies)} +} +} +\usage{ +valid_versions +} +\description{ +A data.frame with 4 columns and one row per valid SDTM version/IG/IG version +combination +} +\keyword{datasets}