progress

pharmaverse · Nov 3, 2023 · 8fb6a57 · 8fb6a57
1 parent eef6b0e
commit 8fb6a57
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 7 deletions.
diff --git a/R/interactive.R b/R/interactive.R
@@ -31,10 +31,6 @@ interactive_discovery <- function(type = c("gt", "reactable")) {
           name = attr(admiraldiscovery::discovery$dataset, 'label'),
           maxWidth = 100
         ),
-        dataset_type = reactable::colDef(
-          name = attr(admiraldiscovery::discovery$dataset_type, 'label'),
-          maxWidth = 100
-        ),
         variable = reactable::colDef(
           name = attr(admiraldiscovery::discovery$variable, 'label'),
           maxWidth = 100
@@ -72,7 +68,7 @@ interactive_discovery <- function(type = c("gt", "reactable")) {
       .after = "fn_url"
     ) |>
     gt() |>
-    cols_hide(columns = c("fn", "fn_url", "package")) |>
+    cols_hide(columns = c("fn", "fn_url", "package", "dataset_type")) |>
     cols_label(function_link = "Function") |>
     fmt_markdown(columns = "function_link") |>
     sub_missing(missing_text = "")  |>

diff --git a/data-raw/DATASET.R b/data-raw/DATASET.R
@@ -1,6 +1,7 @@
 ## code to prepare `DATASET` dataset goes here
 
-discovery <- readr::read_csv(file = "./data-raw/admiral-lookup-book.csv")
+discovery <- readr::read_csv(file = "./data-raw/admiral-lookup-book.csv") |>
+  dplyr::arrange(!dataset %in% "ADSL", dataset, variable)
 
 attr(discovery$dataset, 'label') <- "Data Set"
 attr(discovery$dataset_type, 'label') <- "Data Set Type" # ADSL, BDS, OCCDS

diff --git a/data/discovery.rda b/data/discovery.rda
diff --git a/man/admiraldiscovery-package.Rd b/man/admiraldiscovery-package.Rd
diff --git a/man/discovery.Rd b/man/discovery.Rd