lintr fixes

insightsengineering · Nov 14, 2024 · 5c839b5 · 5c839b5
1 parent 80af8a2
commit 5c839b5
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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({