provide a default method when id = NULL

- no nested listing if `id = NULL`.
elong0527 · Apr 10, 2024 · cadbf46 · cadbf46
1 parent 94afc94
commit cadbf46
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/R/interactive_table1.R b/R/interactive_table1.R
@@ -6,6 +6,7 @@ interactive_table1 <- function(meta,
  keep_missing = TRUE,
  total = TRUE,
  column_header = TRUE,
+ show_listing = TRUE,
  var_listing = NULL,
  download = "none",
  type = NULL,
@@ -31,6 +32,7 @@ interactive_table1 <- function(meta,
  if (!listing) {
  message("Drill-down listing is not provided because there are more than ", max_row, " rows in the datasets")
  }
+ listing <- show_listing & listing
 
  tbl <- metalite::collect_n_subject(meta,
  population = population,

diff --git a/R/metalite_table1.R b/R/metalite_table1.R
@@ -23,7 +23,7 @@
 #' @export
 metalite_table1 <- function(formula,
  data,
- id,
+ id = NULL,
  var_listing = NULL,
  total = TRUE,
  header = NULL,
@@ -34,6 +34,14 @@ metalite_table1 <- function(formula,
  stop("There is no records in the input dataset")
  }
 
+ if(is.null(id)){
+ data$.id <- 1:nrow(data)
+ id = ".id"
+ show_listing <- FALSE
+ }else{
+ show_listing <- TRUE
+ }
+
  if (formula[[2]][[1]] == "|") {
  var <- all.vars(formula[[2]][[2]])
  group <- all.vars(formula[[2]][[3]])
@@ -112,6 +120,7 @@ metalite_table1 <- function(formula,
  htmltools::browsable(
  htmltools::tagList(metalite::meta_run(
  meta,
+ show_listing = show_listing,
  var_listing = var_listing,
  download = download,
  type = record_name