allow display/hide total column #7

R/interactive_table1.R

@@ -3,6 +3,7 @@ interactive_table1 <- function(meta,
  parameter,
  keep_total = TRUE,
  keep_missing = TRUE,
+ total = TRUE,
  column_header = TRUE,
  var_listing = NULL,
  download = "none",
@@ -34,7 +35,8 @@ interactive_table1 <- function(meta,
  listing = listing,
  histogram = TRUE,
  type = type,
- var_listing = var_listing
+ var_listing = var_listing,
+ display_total = total
  )
 
  # Display details in reactable

R/metalite_table1.R

@@ -1,10 +1,11 @@
 #' Interactive table1
 #'
-#' @param formula a formula
-#' @param data a data frame
-#' @param id a variable name
-#' @param var_listing a character vector of additional variables included in the listing.
-#' @param download a character to enable download button. Allowed value include
+#' @param formula an object of class "formula".
+#' @param data a data frame that contain variables described in the `formula`.
+#' @param id a character value to indicate subject/record id variable name in `data`.
+#' @param var_listing a character vector of additional variables included in the drill down listing.
+#' @param total a logical value to display or hide "Total" column.
+#' @param download a character value to enable download button. Allowed value include
 #' "none", "listing", "table", and 'all'.
 #' @param type a character value to control section title (e.g. "Subjects", "Records")
 #'
@@ -13,6 +14,7 @@ metalite_table1 <- function(formula,
  data,
  id,
  var_listing = NULL,
+ total = TRUE,
  download = "none",
  type = NULL) {
 
@@ -39,6 +41,7 @@ metalite_table1 <- function(formula,
  analysis = "metalite.table1:::interactive_table1",
  population = "all",
  observation = "inf",
+ total = total,
  parameter = var
  )