Closes #146: Interactive exploration of datasets vignette in website

.Rbuildignore

@@ -24,3 +24,4 @@
 ^cran-comments\.md$
 ^.devcontainer$
 ^revdep
+^vignettes/articles$

DESCRIPTION

@@ -35,15 +35,18 @@ Suggests:
     cli,
     covr,
     devtools,
+    htmltools,
     knitr,
     lintr,
     metatools,
     pkgdown,
+    reactable,
     rmarkdown,
     roxygen2,
     spelling,
     testthat,
-    usethis
+    usethis,
+    yaml
 Encoding: UTF-8
 Language: en-US
 LazyData: true

_pkgdown.yml

@@ -34,11 +34,14 @@ authors:
 
 navbar:
   structure:
-    left: [reference, news]
+    left: [reference, news, preview]
   components:
     reference:
       text: Reference
       href: reference/index.html
+    preview:
+      text: Preview SDTM
+      href: articles/preview-sdtm.html
 
 reference:
   - title: "Generic Datasets"

vignettes/articles/preview-sdtm.Rmd

@@ -0,0 +1,60 @@
+---
+title: "Preview of SDTM Datasets"
+date: "2026-01-17"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Preview of SDTM Datasets}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+
+# Datasets Preview
+
+Here is a preview of all datasets included in the `pharmaversesdtm` package. Organized by therapeutic area, each dataset is displayed in a collapsible panel with filtering options for easier exploration. For simplicity, only the first 50 rows of each dataset are shown.
+
+```{r echo=FALSE}
+library(pharmaversesdtm)
+library(htmltools)
+library(reactable)
+library(yaml)
+
+specs_yml <- yaml::read_yaml(system.file("extdata/sdtms-specs.json", package = "pharmaversesdtm"))
+specs_yml <- specs_yml$`sdtms-specs`
+
+# Group datasets by therapeutic area
+areas <- sort(unique(sapply(specs_yml, function(x) x$therapeutic_area)))
+
+collapsible_groups <- lapply(areas, function(area) {
+  # Indices of datasets in this area
+  area_indices <- which(sapply(specs_yml, function(x) x$therapeutic_area) == area)
+  # Create collapsibles for this area
+  area_panels <- lapply(area_indices, function(ix) {
+    dataset_name <- specs_yml[[ix]]$name
+    dataset_title <- specs_yml[[ix]]$label
+    # Ensure valid UTF-8 dataset content
+    dataset <- get(dataset_name, envir = asNamespace("pharmaversesdtm"))
+    if (is.data.frame(dataset)) {
+      for (col in names(dataset)) {
+        if (is.character(dataset[[col]])) {
+          dataset[[col]] <- iconv(dataset[[col]], to = "UTF-8", sub = "?")
+        }
+      }
+    }
+    tags$details(
+      tags$summary(paste0(dataset_name, ": ", dataset_title)),
+      reactable::reactable(
+        head(dataset, 50),
+        filterable = TRUE,
+        pagination = TRUE,
+        defaultPageSize = 5,
+        pageSizeOptions = c(5, 10, 25, 50),
+        showPageSizeOptions = TRUE
+      )
+    )
+  })
+  tagList(tags$h3(area), area_panels)
+})
+
+htmltools::browsable(tagList(collapsible_groups))
+```