From f00e1811a95021e77fd8a7defa5e670824e3a448 Mon Sep 17 00:00:00 2001 From: go_gonzo Date: Mon, 13 Nov 2023 13:04:36 +0100 Subject: [PATCH] adding link to vignette and fix error message --- R/module_teal_with_splash.R | 2 +- man/teal_data_module.Rd | 2 +- tests/testthat/test-module_teal_with_splash.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/module_teal_with_splash.R b/R/module_teal_with_splash.R index 4d0542eba9..f1e933cf19 100644 --- a/R/module_teal_with_splash.R +++ b/R/module_teal_with_splash.R @@ -110,7 +110,7 @@ srv_teal_with_splash <- function(id, data, modules, filter = teal_slices()) { } if (!is.reactive(teal_data_rv)) { - stop("The `teal_data_module` must return a reactive expression containing a `teal_data` object.", call. = FALSE) + stop("The `teal_data_module` must return a reactive expression.", call. = FALSE) } teal_data_rv_validate <- reactive({ diff --git a/man/teal_data_module.Rd b/man/teal_data_module.Rd index ccdd0ddb52..3eb672bcda 100644 --- a/man/teal_data_module.Rd +++ b/man/teal_data_module.Rd @@ -27,7 +27,7 @@ This means it will be run every time the app starts, so use sparingly. Pass this module instead of a \code{teal_data} object in a call to \code{\link[=init]{init()}}. -See vignette "Data as shiny Module" for more details. +See vignette \code{vignette("data-as-shiny-module", package = "teal")} for more details. } \examples{ data <- teal_data_module( diff --git a/tests/testthat/test-module_teal_with_splash.R b/tests/testthat/test-module_teal_with_splash.R index f23a82946f..cf8cd1ee23 100644 --- a/tests/testthat/test-module_teal_with_splash.R +++ b/tests/testthat/test-module_teal_with_splash.R @@ -23,7 +23,7 @@ testthat::test_that("srv_teal_with_splash throws when teal_data_module doesn't r ), expr = {} ), - "The `teal_data_module` must return a reactive expression containing a `teal_data` object." + "The `teal_data_module` must return a reactive expression." ) })