Style the R files

Author: llrs-roche

R/tm_data_table.R

@@ -123,8 +123,10 @@ tm_data_table <- function(label = "Data Table",
     })
   }
   if (!is.null(datasets_selected)) {
-    lifecycle::deprecate_stop(when = "0.4.0",
-                              what = "tm_data_table(datasets_selected = 'is deprecated, use `datanames`')")
+    lifecycle::deprecate_stop(
+      when = "0.4.0",
+      what = "tm_data_table(datasets_selected = 'is deprecated, use `datanames`')"
+    )
   }
   checkmate::assert_character(datanames, min.len = 0, min.chars = 1, null.ok = TRUE)
   checkmate::assert(

R/tm_front_page.R

@@ -80,11 +80,15 @@ tm_front_page <- function(label = "Front page",
   checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))
   checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)
   if (!is.null(show_metadata)) {
-    lifecycle::deprecate_stop(when = "0.4.0",
-                              what = "tm_front_page(show_metadata = 'is deprecated, use `datanames`')")
+    lifecycle::deprecate_stop(
+      when = "0.4.0",
+      what = "tm_front_page(show_metadata = 'is deprecated, use `datanames`')"
+    )
   }
-  checkmate::assert_character(datanames, min.len = 0, min.chars = 1,
-                              null.ok = TRUE)
+  checkmate::assert_character(datanames,
+    min.len = 0, min.chars = 1,
+    null.ok = TRUE
+  )
 
   # End of assertions
 

R/tm_variable_browser.R

@@ -103,8 +103,10 @@ tm_variable_browser <- function(label = "Variable Browser",
   # Start of assertions
   checkmate::assert_string(label)
   if (!is.null(datasets_selected)) {
-    lifecycle::deprecate_stop(when = "0.4.0",
-                              what = "tm_variable_browser(datasets_selected = 'is deprecated, use `datanames`')")
+    lifecycle::deprecate_stop(
+      when = "0.4.0",
+      what = "tm_variable_browser(datasets_selected = 'is deprecated, use `datanames`')"
+    )
   }
   checkmate::assert_character(datanames, min.len = 0, min.chars = 1, null.ok = TRUE)
   checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)

tests/testthat/test-shinytest2-tm_data_table.R

@@ -104,24 +104,24 @@ test_that("e2e - tm_data_table: Verify error on datasets_selected", {
   skip_if_too_deep(5)
   app_driver <- function() {
     init_teal_app_driver(
-    data = simple_teal_data(),
-    modules = tm_data_table(
-      label = "Data Table",
-      variables_selected = list(
-        iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")
-      ),
-      datasets_selected = c("iris", "mtcars"),
-      dt_args = list(caption = "Table Caption"),
-      dt_options = list(
-        searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100),
-        scrollX = TRUE
+      data = simple_teal_data(),
+      modules = tm_data_table(
+        label = "Data Table",
+        variables_selected = list(
+          iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")
+        ),
+        datasets_selected = c("iris", "mtcars"),
+        dt_args = list(caption = "Table Caption"),
+        dt_options = list(
+          searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100),
+          scrollX = TRUE
+        ),
+        server_rendering = FALSE,
+        pre_output = NULL,
+        post_output = NULL
       ),
-      server_rendering = FALSE,
-      pre_output = NULL,
-      post_output = NULL
-    ),
-    timeout = 3000
-  )
+      timeout = 3000
+    )
   }
   expect_error(app_driver())
 })