diff --git a/R/modules.R b/R/modules.R index 129180ad71..0614e9bf20 100644 --- a/R/modules.R +++ b/R/modules.R @@ -75,9 +75,9 @@ setOldClass("teal_modules") #' @param ui_args (named `list`) with additional arguments passed on to the UI function. #' @param x (`teal_module` or `teal_modules`) Object to format/print. #' @param transformators (`list` of `teal_transform_module`) that will be applied to transformator module's data input. -#' Each transformator module UI will appear in the `teal` application, unless the `custom_ui` attribute is set on the list. -#' If so, the module developer is responsible to display the UI in the module itself. `datanames` of the `transformators` -#' will be added to the `datanames`. +#' Each transformator module UI will appear in the `teal` application, unless the `custom_ui` attribute is set on the +#' list. If so, the module developer is responsible to display the UI in the module itself. `datanames` of the +#' `transformators` will be added to the `datanames`. #' #' #' @param ... diff --git a/tests/testthat/test-init.R b/tests/testthat/test-init.R index b288a629cc..ad6daeda9e 100644 --- a/tests/testthat/test-init.R +++ b/tests/testthat/test-init.R @@ -83,7 +83,7 @@ testthat::test_that( ) testthat::test_that( - "init does not throw warning when datanames in modules incompatible w/ datanames in data and there are transformators", + "init doesn't throw warning when datanames in modules incompatible w/ datanames in data and there are transformators", { testthat::expect_no_warning( init( diff --git a/tests/testthat/test-modules.R b/tests/testthat/test-modules.R index 43627fbf5a..0ab9704bf5 100644 --- a/tests/testthat/test-modules.R +++ b/tests/testthat/test-modules.R @@ -121,7 +121,10 @@ testthat::test_that("module() returns list of class 'teal_module' containing inp ui_args = NULL ) testthat::expect_s3_class(test_module, "teal_module") - testthat::expect_named(test_module, c("label", "server", "ui", "datanames", "server_args", "ui_args", "transformators")) + testthat::expect_named( + test_module, + c("label", "server", "ui", "datanames", "server_args", "ui_args", "transformators") + ) testthat::expect_identical(test_module$label, "aaa1") testthat::expect_identical(test_module$server, call_module_server_fun) testthat::expect_identical(test_module$ui, ui_fun1) diff --git a/vignettes/decorate-module-output.Rmd b/vignettes/decorate-module-output.Rmd index 3d53c34335..54f293057b 100644 --- a/vignettes/decorate-module-output.Rmd +++ b/vignettes/decorate-module-output.Rmd @@ -478,8 +478,14 @@ tm_decorated_plot <- function( ) }), 200) - plot_1_data_decorated <- srv_teal_transform_data("decorate_1", data = plot_1_data, transformators = decorators[[1]]) - plot_2_data_decorated <- srv_teal_transform_data("decorate_2", data = plot_2_data, transformators = decorators[[2]]) + plot_1_data_decorated <- + srv_teal_transform_data( + "decorate_1", data = plot_1_data, transformators = decorators[[1]] + ) + plot_2_data_decorated <- + srv_teal_transform_data( + "decorate_2", data = plot_2_data, transformators = decorators[[2]] + ) plot_r <- reactive({