From 42cf39238867bca140874ea778e2b63eeca3b118 Mon Sep 17 00:00:00 2001
From: "27856297+dependabot-preview[bot]@users.noreply.github.com"
 <27856297+dependabot-preview[bot]@users.noreply.github.com>
Date: Fri, 24 Nov 2023 12:00:32 +0000
Subject: [PATCH] [skip actions] Roxygen Man Pages Auto Update

---
 man/adtteSpecServer.Rd     | 3 +++
 man/geneSpecServer.Rd      | 3 +++
 man/sampleVarSpecServer.Rd | 3 +++
 3 files changed, 9 insertions(+)

diff --git a/man/adtteSpecServer.Rd b/man/adtteSpecServer.Rd
index 1bfc72b3..49c50374 100644
--- a/man/adtteSpecServer.Rd
+++ b/man/adtteSpecServer.Rd
@@ -77,6 +77,7 @@ the numeric column according to the quantile cutoffs specified in \code{probs}.
 \examples{
 ui <- function(id,
                data) {
+  checkmate::assert_class(data, "teal_data")
   ns <- NS(id)
 
   teal.widgets::standard_layout(
@@ -91,6 +92,8 @@ ui <- function(id,
 }
 
 server <- function(id, data, filter_panel_api) {
+  checkmate::assert_class(data, "reactive")
+  checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
     experiment <- experimentSpecServer(
       "experiment",
diff --git a/man/geneSpecServer.Rd b/man/geneSpecServer.Rd
index e9bbfa33..d414a131 100644
--- a/man/geneSpecServer.Rd
+++ b/man/geneSpecServer.Rd
@@ -39,6 +39,7 @@ This defines the server part for the gene signature specification.
 ui <- function(id,
                data,
                funs) {
+  checkmate::assert_class(data, "teal_data")
   ns <- NS(id)
   teal.widgets::standard_layout(
     encoding = div(
@@ -54,6 +55,8 @@ ui <- function(id,
 server <- function(id,
                    data,
                    funs) {
+  checkmate::assert_class(data, "reactive")
+  checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
     gene_choices <- reactive({
       mae <- data()[["MAE"]]
diff --git a/man/sampleVarSpecServer.Rd b/man/sampleVarSpecServer.Rd
index 9fba9957..3ef56fe2 100644
--- a/man/sampleVarSpecServer.Rd
+++ b/man/sampleVarSpecServer.Rd
@@ -60,6 +60,7 @@ If \code{num_levels} is specified then only factor columns will be available.
 \examples{
 ui <- function(id,
                data) {
+  checkmate::assert_class(data, "teal_data")
   ns <- NS(id)
   mae <- data[["MAE"]]
   experiment_name_choices <- names(mae)
@@ -73,6 +74,8 @@ ui <- function(id,
 }
 server <- function(id,
                    data) {
+  checkmate::assert_class(data, "reactive")
+  checkmate::assert_class(shiny::isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
     experiment_data <- reactive({
       req(input$experiment_name)