diff --git a/DESCRIPTION b/DESCRIPTION
index 7eeda59a5..c23ff293c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -32,6 +32,7 @@ Imports:
     bslib (>= 0.8.0),
     checkmate (>= 2.1.0),
     colourpicker (>= 1.3.0),
+    crane,
     dplyr (>= 1.1.0),
     DT (>= 0.13),
     forcats (>= 1.0.0),
diff --git a/NAMESPACE b/NAMESPACE
index 9a8bb56e3..1e010af17 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -24,6 +24,7 @@ export(tm_g_distribution)
 export(tm_g_response)
 export(tm_g_scatterplot)
 export(tm_g_scatterplotmatrix)
+export(tm_gt_tbl_summary)
 export(tm_missing_data)
 export(tm_outliers)
 export(tm_rmarkdown)
@@ -36,3 +37,4 @@ import(teal.transform)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,.data)
 importFrom(lifecycle,deprecated)
+importFrom(methods,is)
diff --git a/R/tm_gt_tbl_summary.R b/R/tm_gt_tbl_summary.R
new file mode 100644
index 000000000..8632801f1
--- /dev/null
+++ b/R/tm_gt_tbl_summary.R
@@ -0,0 +1,339 @@
+#' `teal` module: Summary table
+#'
+#' Generates a table summary from a dataset using gtsummary.
+#'
+#' @inheritParams teal::module
+#' @inheritParams shared_params
+#' @param by (`data_extract_spec` or `list` of multiple `data_extract_spec`)
+#' Object with all available choices with pre-selected option for how to split the rows
+#'
+#' `data_extract_spec` must not allow multiple selection.
+#' @param include  (`data_extract_spec` or `list` of multiple `data_extract_spec`)
+#' Object with all available choices with pre-selected option for which columns to include as rows.
+#'
+#' `data_extract_spec` can allow multiple selection in this case.
+#' @param col_label Used to override default labels in summary table, e.g. `list(age = "Age, years")`.
+#' The default for each variable is the column label attribute, `attr(., 'label')`.
+#' If no label has been set, the column name is used.
+#' @inheritParams gtsummary::tbl_summary
+#' @inherit shared_params return
+#' @param missing_text String indicating text shown on missing row.
+#' @param missing_stat statistic to show on missing row. Default is `"{N_miss}"`.
+#' Possible values are `N_miss`, `N_obs`, `N_nonmiss`, `p_miss`, `p_nonmiss`.
+#' @inheritSection gtsummary::tbl_summary statistic argument
+#' @inheritSection gtsummary::tbl_summary digits argument
+#' @inheritSection gtsummary::tbl_summary type and value arguments
+#' @section Decorating Module:
+#'
+#' This module generates the following objects, which can be modified in place using decorators:
+#' - `table` (`gtsummary` - output of [`crane::tbl_roche_summary()`])
+#'
+#' A Decorator is applied to the specific output using a named list of `teal_transform_module` objects.
+#' The name of this list corresponds to the name of the output to which the decorator is applied.
+#' See code snippet below:
+#'
+#' ```
+#' tm_gt_tbl_summary(
+#'    ..., # arguments for module
+#'    decorators = list(
+#'      table = teal_transform_module(...) # applied to the `table` output
+#'    )
+#' )
+#' ```
+#' For additional details and examples of decorators, refer to the vignette
+#' `vignette("decorate-module-output", package = "teal.modules.general")`.
+#'
+#' To learn more please refer to the vignette
+#' `vignette("transform-module-output", package = "teal")` or the [`teal::teal_transform_module()`] documentation.
+#'
+#' @inheritSection teal::example_module Reporting
+#' @export
+#' @importFrom methods is
+#' @examples
+#' data <- within(teal_data(), {
+#'   ADSL <- teal.data::rADSL
+#' })
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
+#' app <- init(
+#'   data = data,
+#'   modules = modules(
+#'     tm_gt_tbl_summary(
+#'       by = data_extract_spec(
+#'         dataname = "ADSL",
+#'         select = select_spec(
+#'           choices = c("SEX", "COUNTRY", "SITEID", "ACTARM"),
+#'           selected = "SEX",
+#'           multiple = FALSE
+#'         )
+#'       ),
+#'       include = data_extract_spec(
+#'         dataname = "ADSL",
+#'         select = select_spec(
+#'           choices = c("SITEID", "COUNTRY", "ACTARM"),
+#'           selected = "SITEID",
+#'           multiple = TRUE,
+#'           fixed = FALSE
+#'         )
+#'       )
+#'     )
+#'   )
+#' )
+#' if (interactive()) {
+#'   shinyApp(app$ui, app$server)
+#' }
+tm_gt_tbl_summary <- function(
+  label = "Table summary",
+  by = NULL,
+  col_label = NULL,
+  statistic = list(
+    gtsummary::all_continuous() ~ c("{mean} ({sd})", "{median}", "{min} - {max}"),
+    gtsummary::all_categorical() ~ "{n} ({p}%)"
+  ),
+  digits = NULL,
+  type = NULL,
+  value = NULL,
+  missing_text = "<Missing>",
+  missing_stat = "{N_nonmiss}",
+  sort = gtsummary::all_categorical(FALSE) ~ "alphanumeric",
+  include = tidyselect::everything(),
+  transformators = list(),
+  decorators = list()
+) {
+  message("Initializing tm_gt_tbl_summary")
+  checkmate::assert_string(label)
+  if (inherits(by, "data_extract_spec")) {
+    checkmate::assert_list(list(by), types = "data_extract_spec", null.ok = TRUE, any.missing = FALSE, all.missing = FALSE)
+    assert_single_selection(list(by))
+  }
+  if (inherits(include, "data_extract_spec")) {
+    checkmate::assert_list(list(include), types = "data_extract_spec", any.missing = FALSE, all.missing = FALSE)
+  }
+  assert_decorators(decorators, "table")
+
+  # Make UI args
+  args <- as.list(environment())
+
+  module <- module(
+    label = label,
+    server = srv_gt_tbl_summary,
+    ui = ui_gt_tbl_summary,
+    ui_args = args,
+    server_args = list(
+      by = by,
+      col_label = col_label,
+      statistic = statistic,
+      digits = digits,
+      type = type,
+      value = value,
+      # missing = missing,
+      missing_text = missing_text,
+      missing_stat = missing_stat,
+      sort = sort,
+      # percent = percent,
+      include = include,
+      decorators = decorators
+    ),
+    transformators = transformators
+  )
+  attr(module, "teal_bookmarkable") <- TRUE
+  module
+}
+
+
+ui_gt_tbl_summary <- function(id, ...) {
+  ns <- NS(id)
+  args <- list(...)
+  teal.widgets::standard_layout(
+    output = gt::gt_output(ns("table")),
+    encoding = tags$div(
+      tags$label("Encodings", class = "text-primary"),
+      teal.transform::datanames_input(args[c("by", "include")]),
+      teal.transform::data_extract_ui(ns("by"),
+        label = "Variable(s) to stratify with",
+        data_extract_spec = args$by
+      ),
+      teal.transform::data_extract_ui(ns("include"),
+        label = "Variable(s) to include",
+        data_extract_spec = args$include
+      ),
+      radioButtons(
+        ns("missing"),
+        label = "Display missing counts:",
+        choices = c("No" = "no", "If any" = "ifany", "Always" = "always"),
+        selected = "no"
+      ),
+      radioButtons(
+        ns("percent"),
+        label = "Percentage based on:",
+        choices = c("Column" = "column", "Row" = "row", "Cell" = "cell"),
+        selected = "column"
+      ),
+      ui_decorate_teal_data(ns("decorator"), decorators = select_decorators(args$decorators, "table"))
+    ),
+    pre_output = args$pre_output,
+    post_output = args$post_output
+  )
+}
+
+srv_gt_tbl_summary <- function(id,
+                               data,
+                               by,
+                               col_label,
+                               statistic,
+                               digits,
+                               type,
+                               value,
+                               missing_text,
+                               missing_stat,
+                               sort,
+                               include,
+                               decorators) {
+  checkmate::assert_class(data, "reactive")
+  checkmate::assert_class(isolate(data()), "teal_data")
+  checkmate::assert_character(missing_text, len = 1L)
+  checkmate::assert_character(missing_stat, len = 1L)
+
+  moduleServer(id, function(input, output, session) {
+    teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.general")
+
+
+    qenv <- reactive({
+      obj <- req(data())
+      teal.reporter::teal_card(obj) <-
+        c(
+          teal.reporter::teal_card(obj),
+          teal.reporter::teal_card("## Module's output(s)")
+        )
+      teal.code::eval_code(obj, "library(crane)")
+    })
+
+    summary_args <- reactive({
+      req(qenv())
+
+      # table
+      if (!is.null(by) || !is.null(include)) {
+        validate(need(is_single_dataset(list(by = by, include = include)), "Variables should come from the same dataset."))
+      }
+
+      dataset <- if (!is.null(by)) {
+        by$dataname
+      } else {
+        include$dataname
+      }
+
+      validate(
+        need(!is.null(dataset), "Specify variables to stratify or to include on the summary table."),
+        need(teal.transform::is_single_dataset(by, include), "Input from multiple tables: this module doesn't accept that.")
+      )
+
+      nam_input <- names(input)
+
+      # by: input + corner cases
+      if (!is.null(by)) {
+        by_variable <- input[[nam_input[startsWith(nam_input, "by") & endsWith(nam_input, "select")]]]
+      }
+
+      # label columns
+      if (!is.null(col_label)) {
+        checkmate::check_character(col_label)
+      }
+
+      # statistic
+      if (!is.null(statistic)) {
+        validate(need(all(vapply(statistic, is, class2 = "formula", logical(1L))), "All elements of statistic should be formulas"))
+      }
+
+      # digits
+      if (!is.null(digits)) {
+        integer <- is.integer(digits) && length(digits) >= 1L
+        functions <- is.function(digits) || all(vapply(digits, is.function, logical(1L)))
+        validate(need(any(integer || functions), "digits should be integer(s) or a function (or list of)."))
+      }
+      # type
+      if (!is.null(type)) {
+        possible_types <- c("continuous", "continuous2", "categorical", "dichotomous")
+        validate(need(
+          length(type) == 1L && type %in% possible_types,
+          paste0("One of: c(", toString(dQuote(possible_types)), ").")
+        ))
+      }
+
+      # value
+      if (!is.null(type)) {
+        possible_types <- c("continuous", "continuous2", "categorical", "dichotomous")
+        validate(need(
+          length(type) == 1L && type %in% possible_types,
+          paste0("One of: c(", toString(dQuote(possible_types)), ").")
+        ))
+      }
+
+      # nonmissing: input
+
+      # nonmissing_text
+      if (!identical(missing_text, "<Missing>")) {
+        validate(need(is.character(missing_text), "Must be a character."))
+      }
+
+      # nonmissing_stat
+      if (!identical(missing_stat, "{N_miss}")) {
+        validate(need(is.character(missing_stat), "Must be a character to be parsed by glue."))
+      }
+
+      # sort
+      if (!is.null(sort)) {
+        validate(need(all(vapply(sort, is, class2 = "formula", logical(1L))), "All elements of sort should be formulas"))
+      }
+      # percent: input
+      # include: input + corner cases
+      include_variables <- input[[nam_input[startsWith(nam_input, "include") & endsWith(nam_input, "select")]]]
+      if (is.null(include_variables)) {
+        include_variables <- formals(tbl_summary)$include
+      }
+
+      call("tbl_roche_summary",
+        data = as.name(dataset),
+        by = by_variable,
+        label = col_label,
+        statistic = statistic,
+        digits = digits,
+        type = type,
+        value = value,
+        nonmissing = input$missing,
+        nonmissing_text = missing_text,
+        nonmissing_stat = missing_stat,
+        sort = sort,
+        percent = input$percent,
+        include = include_variables
+      )
+    })
+
+    output_q <- reactive({
+      q <- req(qenv())
+      table_call <- req(summary_args())
+      within(q,
+        expr = {
+          table <- table_crane
+        },
+        table_crane = table_call
+      )
+    })
+
+    decorated_output_q <- srv_decorate_teal_data(
+      id = "decorator",
+      data = output_q,
+      decorators = select_decorators(decorators, "table"),
+      expr = quote(table)
+    )
+
+    table_r <- reactive({
+      req(decorated_output_q())
+      table <- decorated_output_q()[["table"]]
+      gtsummary::as_gt(table)
+    })
+    output$table <- gt::render_gt({
+      gtsummary::as_gt(output_q()[["table"]])
+    })
+
+    decorated_output_q
+  })
+}
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 03cc63b69..50ad25f7d 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -11,8 +11,10 @@ facetting
 funder
 ggmosaic
 ggplot
+gtsummary
 pre
 qq
 reportable
 sortable
 tabset
+tbl
diff --git a/man/tm_gt_tbl_summary.Rd b/man/tm_gt_tbl_summary.Rd
new file mode 100644
index 000000000..555e2c97a
--- /dev/null
+++ b/man/tm_gt_tbl_summary.Rd
@@ -0,0 +1,242 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/tm_gt_tbl_summary.R
+\name{tm_gt_tbl_summary}
+\alias{tm_gt_tbl_summary}
+\title{\code{teal} module: Summary table}
+\usage{
+tm_gt_tbl_summary(
+  label = "Table summary",
+  by = NULL,
+  col_label = NULL,
+  statistic = list(gtsummary::all_continuous() ~ c("{mean} ({sd})", "{median}",
+    "{min} - {max}"), gtsummary::all_categorical() ~ "{n} ({p}\%)"),
+  digits = NULL,
+  type = NULL,
+  value = NULL,
+  missing_text = "<Missing>",
+  missing_stat = "{N_nonmiss}",
+  sort = gtsummary::all_categorical(FALSE) ~ "alphanumeric",
+  include = tidyselect::everything(),
+  transformators = list(),
+  decorators = list()
+)
+}
+\arguments{
+\item{label}{(\code{character(1)}) Label shown in the navigation item for the module or module group.
+For \code{modules()} defaults to \code{"root"}. See \code{Details}.}
+
+\item{by}{(\code{data_extract_spec} or \code{list} of multiple \code{data_extract_spec})
+Object with all available choices with pre-selected option for how to split the rows
+
+\code{data_extract_spec} must not allow multiple selection.}
+
+\item{col_label}{Used to override default labels in summary table, e.g. \code{list(age = "Age, years")}.
+The default for each variable is the column label attribute, \code{attr(., 'label')}.
+If no label has been set, the column name is used.}
+
+\item{statistic}{(\code{\link[gtsummary:syntax]{formula-list-selector}})\cr
+Specifies summary statistics to display for each variable.  The default is
+\code{list(all_continuous() ~ "{median} ({p25}, {p75})", all_categorical() ~ "{n} ({p}\%)")}.
+See below for details.}
+
+\item{digits}{(\code{\link[gtsummary:syntax]{formula-list-selector}})\cr
+Specifies how summary statistics are rounded. Values may be either integer(s)
+or function(s). If not specified, default formatting is assigned
+via \code{assign_summary_digits()}. See below for details.}
+
+\item{type}{(\code{\link[gtsummary:syntax]{formula-list-selector}})\cr
+Specifies the summary type. Accepted value are
+\code{c("continuous", "continuous2", "categorical", "dichotomous")}.
+If not specified, default type is assigned via
+\code{assign_summary_type()}. See below for details.}
+
+\item{value}{(\code{\link[gtsummary:syntax]{formula-list-selector}})\cr
+Specifies the level of a variable to display on a single row.
+The gtsummary type selectors, e.g. \code{all_dichotomous()}, cannot be used
+with this argument. Default is \code{NULL}. See below for details.}
+
+\item{missing_text}{String indicating text shown on missing row.}
+
+\item{missing_stat}{statistic to show on missing row. Default is \code{"{N_miss}"}.
+Possible values are \code{N_miss}, \code{N_obs}, \code{N_nonmiss}, \code{p_miss}, \code{p_nonmiss}.}
+
+\item{sort}{(\code{\link[gtsummary:syntax]{formula-list-selector}})\cr
+Specifies sorting to perform for categorical variables.
+Values must be one of \code{c("alphanumeric", "frequency")}.
+Default is \code{all_categorical(FALSE) ~ "alphanumeric"}.}
+
+\item{include}{(\code{data_extract_spec} or \code{list} of multiple \code{data_extract_spec})
+Object with all available choices with pre-selected option for which columns to include as rows.
+
+\code{data_extract_spec} can allow multiple selection in this case.}
+
+\item{transformators}{(\code{list} of \code{teal_transform_module}) that will be applied to transform module's data input.
+To learn more check \code{vignette("transform-input-data", package = "teal")}.}
+
+\item{decorators}{\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#experimental}{\figure{lifecycle-experimental.svg}{options: alt='[Experimental]'}}}{\strong{[Experimental]}}
+(named \code{list} of lists of \code{teal_transform_module}) optional,
+decorator for tables or plots included in the module output reported.
+The decorators are applied to the respective output objects.
+
+See section "Decorating Module" below for more details.}
+}
+\value{
+Object of class \code{teal_module} to be used in \code{teal} applications.
+}
+\description{
+Generates a table summary from a dataset using gtsummary.
+}
+\section{Decorating Module}{
+
+
+This module generates the following objects, which can be modified in place using decorators:
+\itemize{
+\item \code{table} (\code{gtsummary} - output of \code{\link[crane:tbl_roche_summary]{crane::tbl_roche_summary()}})
+}
+
+A Decorator is applied to the specific output using a named list of \code{teal_transform_module} objects.
+The name of this list corresponds to the name of the output to which the decorator is applied.
+See code snippet below:
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{tm_gt_tbl_summary(
+   ..., # arguments for module
+   decorators = list(
+     table = teal_transform_module(...) # applied to the `table` output
+   )
+)
+}\if{html}{\out{</div>}}
+
+For additional details and examples of decorators, refer to the vignette
+\code{vignette("decorate-module-output", package = "teal.modules.general")}.
+
+To learn more please refer to the vignette
+\code{vignette("transform-module-output", package = "teal")} or the \code{\link[teal:teal_transform_module]{teal::teal_transform_module()}} documentation.
+}
+
+\section{statistic argument}{
+
+
+The statistic argument specifies the statistics presented in the table. The
+input dictates the summary statistics presented in the table. For example,
+\code{statistic = list(age ~ "{mean} ({sd})")} would report the mean and
+standard deviation for age; \code{statistic = list(all_continuous() ~ "{mean} ({sd})")}
+would report the mean and standard deviation for all continuous variables.
+
+The values are interpreted using  \code{\link[glue:glue]{glue::glue()}} syntax:
+a name that appears between curly brackets will be interpreted as a function
+name and the formatted result of that function will be placed in the table.
+
+For categorical variables, the following statistics are available to display:
+\code{{n}} (frequency), \code{{N}} (denominator), \code{{p}} (percent).
+
+For continuous variables, \strong{any univariate function may be used}.
+The most commonly used functions are \code{{median}}, \code{{mean}}, \code{{sd}}, \code{{min}},
+and \code{{max}}.
+Additionally, \verb{{p##}} is available for percentiles, where \verb{##} is an integer from 0 to 100.
+For example, \code{p25: quantile(probs=0.25, type=2)}.
+
+When the summary type is \code{"continuous2"}, pass a vector of statistics.
+Each element of the vector will result in a separate row in the summary table.
+
+For both categorical and continuous variables, statistics on the number of
+missing and non-missing observations and their proportions are available to
+display.
+\itemize{
+\item \code{{N_obs}} total number of observations
+\item \code{{N_miss}} number of missing observations
+\item \code{{N_nonmiss}} number of non-missing observations
+\item \code{{p_miss}} percentage of observations missing
+\item \code{{p_nonmiss}} percentage of observations not missing
+}
+
+}
+
+\section{digits argument}{
+
+
+The digits argument specifies the the number of digits (or formatting function)
+statistics are rounded to.
+
+The values passed can either be a single integer, a vector of integers, a
+function, or a list of functions. If a single integer or function is passed,
+it is recycled to the length of the number of statistics presented.
+For example, if the statistic is \code{"{mean} ({sd})"}, it is equivalent to
+pass \code{1}, \code{c(1, 1)}, \code{label_style_number(digits=1)}, and
+\code{list(label_style_number(digits=1), label_style_number(digits=1))}.
+
+Named lists are also accepted to change the default formatting for a single
+statistic, e.g. \code{list(sd = label_style_number(digits=1))}.
+
+}
+
+\section{type and value arguments}{
+
+
+There are four summary types. Use the \code{type} argument to change the default summary types.
+\itemize{
+\item \code{"continuous"} summaries are shown on a \emph{single row}. Most numeric
+variables default to summary type continuous.
+\item \code{"continuous2"} summaries are shown on \emph{2 or more rows}
+\item \code{"categorical"} \emph{multi-line} summaries of nominal data. Character variables,
+factor variables, and numeric variables with fewer than 10 unique levels default to
+type categorical. To change a numeric variable to continuous that
+defaulted to categorical, use \code{type = list(varname ~ "continuous")}
+\item \code{"dichotomous"} categorical variables that are displayed on a \emph{single row},
+rather than one row per level of the variable.
+Variables coded as \code{TRUE}/\code{FALSE}, \code{0}/\code{1}, or \code{yes}/\code{no} are assumed to be dichotomous,
+and the \code{TRUE}, \code{1}, and \code{yes} rows are displayed.
+Otherwise, the value to display must be specified in the \code{value}
+argument, e.g. \code{value = list(varname ~ "level to show")}
+}
+
+}
+
+\section{Reporting}{
+
+
+
+This module returns an object of class \code{teal_module}, that contains a \code{server} function.
+Since the server function returns a \code{teal_report} object, this makes this module reportable, which means that
+the reporting functionality will be turned on automatically by the \code{teal} framework.
+
+For more information on reporting in \code{teal}, see the vignettes:
+\itemize{
+\item \code{vignette("reportable-shiny-application", package = "teal.reporter")}
+\item \code{vignette("adding-support-for-reporting-to-custom-modules", package = "teal")}
+}
+
+}
+
+\examples{
+data <- within(teal_data(), {
+  ADSL <- teal.data::rADSL
+})
+join_keys(data) <- default_cdisc_join_keys[names(data)]
+app <- init(
+  data = data,
+  modules = modules(
+    tm_gt_tbl_summary(
+      by = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = c("SEX", "COUNTRY", "SITEID", "ACTARM"),
+          selected = "SEX",
+          multiple = FALSE
+        )
+      ),
+      include = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = c("SITEID", "COUNTRY", "ACTARM"),
+          selected = "SITEID",
+          multiple = TRUE,
+          fixed = FALSE
+        )
+      )
+    )
+  )
+)
+if (interactive()) {
+  shinyApp(app$ui, app$server)
+}
+}