Add dataset describing valid SDTM/IG versions

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"

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)