diff --git a/R/metalite_table1.R b/R/metalite_table1.R index 1edfa21..836bf5b 100644 --- a/R/metalite_table1.R +++ b/R/metalite_table1.R @@ -9,7 +9,7 @@ #' Default is to show the row for the first variable. #' @param download a character value to enable download button. Allowed values include #' "none", "listing", "table", and 'all'. -#' @param type a character value to control section title (e.g. "Subjects", "Records"). +#' @param record_name a character value to control section title (e.g. "Subjects", "Records"). #' @param ... additional arguments passed to `reactable`. More details refer \url{https://glin.github.io/reactable/reference/reactable.html} #' #' @return a `shiny.tag.list` object that contain a `reactable` HTML widget for @@ -28,7 +28,7 @@ metalite_table1 <- function(formula, total = TRUE, header = NULL, download = "none", - type = NULL, + record_name = NULL, ...) { if (nrow(data) == 0) { stop("There is no records in the input dataset") @@ -114,7 +114,7 @@ metalite_table1 <- function(formula, meta, var_listing = var_listing, download = download, - type = type + type = record_name )) ) } diff --git a/man/metalite_table1.Rd b/man/metalite_table1.Rd index 4099280..943b373 100644 --- a/man/metalite_table1.Rd +++ b/man/metalite_table1.Rd @@ -12,7 +12,7 @@ metalite_table1( total = TRUE, header = NULL, download = "none", - type = NULL, + record_name = NULL, ... ) } @@ -33,7 +33,7 @@ Default is to show the row for the first variable.} \item{download}{a character value to enable download button. Allowed values include "none", "listing", "table", and 'all'.} -\item{type}{a character value to control section title (e.g. "Subjects", "Records").} +\item{record_name}{a character value to control section title (e.g. "Subjects", "Records").} \item{...}{additional arguments passed to \code{reactable}. More details refer \url{https://glin.github.io/reactable/reference/reactable.html}} }