From 5d1f54ad3c158563b807d21b09cde127e1bf9107 Mon Sep 17 00:00:00 2001
From: niup0 <poyao.niu@merck.com>
Date: Thu, 31 Oct 2024 17:37:37 -0400
Subject: [PATCH] Build package.

---
 NAMESPACE                |  1 +
 R/react_disposition.R    |  1 +
 man/react_disposition.Rd | 51 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 53 insertions(+)
 create mode 100644 man/react_disposition.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 51c180a..c6b0112 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -18,6 +18,7 @@ export(prepare_exp_duration)
 export(prepare_sl_summary)
 export(prepare_trt_compliance)
 export(react_base_char)
+export(react_disposition)
 export(rtf_base_char)
 export(rtf_base_char_subgroup)
 export(rtf_disposition)
diff --git a/R/react_disposition.R b/R/react_disposition.R
index ab3abdc..94f30c7 100644
--- a/R/react_disposition.R
+++ b/R/react_disposition.R
@@ -167,6 +167,7 @@ react_disposition <- function(
 
   reactable::reactable(
     tbl_sl,
+    sortable = F,
     groupBy = "var_label",
     width = width,
     columns = col_defs,
diff --git a/man/react_disposition.Rd b/man/react_disposition.Rd
new file mode 100644
index 0000000..7d7b396
--- /dev/null
+++ b/man/react_disposition.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/react_disposition.R
+\name{react_disposition}
+\alias{react_disposition}
+\title{Display interactive disposition tables with AE subgroup analysis}
+\usage{
+react_disposition(
+  metadata_sl,
+  metadata_ae,
+  analysis = "disp",
+  population = metadata_sl$plan[metadata_sl$plan$analysis == analysis, ]$population,
+  sl_parameter = paste(metadata_sl$plan[metadata_sl$plan$analysis == analysis,
+    ]$parameter, collapse = ";"),
+  display_total = TRUE,
+  width = 1200
+)
+}
+\arguments{
+\item{metadata_sl}{A metadata created by \link{metalite},
+which builds the baseline characteristic table}
+
+\item{metadata_ae}{A metadata created by \link{metalite},
+which builds the AE subgroup specific table}
+
+\item{population}{A character value of population term name.
+The term name is used as key to link information.}
+
+\item{sl_parameter}{A character value of parameter term name for
+the baseline characteristic table.
+The term name is used as key to link information.}
+
+\item{display_total}{Display total column or not.}
+
+\item{width}{A numeric value of width of the table in pixels.}
+}
+\value{
+An reactable combing both baseline characteristic table
+and AE subgroup specific tables.
+}
+\description{
+Display interactive disposition tables with AE subgroup analysis
+}
+\examples{
+if (interactive()) {
+  react_disposition(
+    metadata_sl = meta_sl_example(),
+    metadata_ae = metalite.ae::meta_ae_example(),
+    width = 1200
+  )
+}
+}