[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/plotly_with_settings.R

@@ -1,10 +1,10 @@
 plotly_with_settings_ui <- function(id, height) {
   ns <- NS(id)
   plotly::plotlyOutput(ns("plot"), height = height)
-} 
+}
 
 plotly_with_settings_srv <- function(id, plot) {
   moduleServer(id, function(input, output, session) {
     output$plot <- plotly::renderPlotly(plot())
   })
-}
+}

R/roxygen2_templates.R

@@ -55,14 +55,14 @@ roxygen_ggplot2_args_param <- function(...) {
 #' decorator for tables or plots included in the module output reported.
 #' The decorators are applied to the respective output objects.
 #'
-#' @param table_datanames (`character`) names of the datasets which should be listed below the plot 
+#' @param table_datanames (`character`) names of the datasets which should be listed below the plot
 #'  when some data points are selected. Objects named after `table_datanames` will be pulled from
 #'  `data` so it is important that data actually contains these datasets. Please be aware that
-#'  table datasets must be linked with `plot_dataname` by the relevant [join_keys()].  
+#'  table datasets must be linked with `plot_dataname` by the relevant [join_keys()].
 #' See section "Decorating Module" below for more details.
 #'
 #' @return Object of class `teal_module` to be used in `teal` applications.
 #'
 #' @name shared_params
 #' @keywords internal
-NULL
+NULL

R/tm_data_table.R

@@ -170,18 +170,18 @@ ui_data_table <- function(id, pre_output = NULL, post_output = NULL) {
 
 # Server page module
 srv_data_table <- function(id,
-                            data,
-                            datanames,
-                            variables_selected = list(),
-                            dt_args = list(),
-                            dt_options = list(
-                              searching = FALSE,
-                              pageLength = 30,
-                              lengthMenu = c(5, 15, 30, 100),
-                              scrollX = TRUE
-                            ),
-                            server_rendering = FALSE,
-                            filter_panel_api) {
+                           data,
+                           datanames,
+                           variables_selected = list(),
+                           dt_args = list(),
+                           dt_options = list(
+                             searching = FALSE,
+                             pageLength = 30,
+                             lengthMenu = c(5, 15, 30, 100),
+                             scrollX = TRUE
+                           ),
+                           server_rendering = FALSE,
+                           filter_panel_api) {
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {
@@ -192,7 +192,7 @@ srv_data_table <- function(id,
 
     datanames_r <- reactive({
       Filter(
-        function(name) is.data.frame(data()[[name]]), 
+        function(name) is.data.frame(data()[[name]]),
         if (identical(datanames, "all")) names(data()) else datanames
       )
     })
@@ -241,8 +241,8 @@ srv_data_table <- function(id,
     }) |>
       bindCache(datanames_r()) |>
       bindEvent(datanames_r())
-    
-    
+
+
     # server should be run only once
     modules_run <- reactiveVal()
     modules_to_run <- reactive(setdiff(datanames_r(), isolate(modules_run())))
@@ -297,14 +297,14 @@ ui_dataset_table <- function(id, choices, selected) {
 
 # Server function for the data_table module
 srv_dataset_table <- function(id,
-                             data,
-                             dataname,
-                             if_filtered,
-                             if_distinct,
-                             dt_args,
-                             dt_options,
-                             server_rendering,
-                             filter_panel_api) {
+                              data,
+                              dataname,
+                              if_filtered,
+                              if_distinct,
+                              dt_args,
+                              dt_options,
+                              server_rendering,
+                              filter_panel_api) {
   moduleServer(id, function(input, output, session) {
     iv <- shinyvalidate::InputValidator$new()
     iv$add_rule("variables", shinyvalidate::sv_required("Please select valid variable names"))

R/tm_markdown.R

@@ -20,22 +20,22 @@
 #'     iris <- iris
 #'     mtcars <- mtcars
 #'   })
-#
+#' #
 #'
 #' @export
 #'
 tm_rmarkdown <- function(label = "App Info",
-                        text = character(0),
-                        params = list(title = "Document"),
-                        datanames = "all") {
+                         text = character(0),
+                         params = list(title = "Document"),
+                         datanames = "all") {
   message("Initializing tm_rmarkdown")
-  
+
   # Start of assertions
   checkmate::assert_string(label)
   checkmate::assert_character(text, min.len = 0, any.missing = FALSE)
   checkmate::assert_list(params)
 
-  
+
   ans <- module(
     label = label,
     server = srv_rmarkdown,
@@ -65,15 +65,15 @@ srv_rmarkdown <- function(id, data, text, params) {
         cat(text, file = file)
       }
       rmarkdown::render(
-        file, 
-        envir = data(), 
+        file,
+        envir = data(),
         params = utils::modifyList(
-          params, 
-          list(output = list(github_document = list(html_preview = FALSE)))  # html_document always as we renderUI below
+          params,
+          list(output = list(github_document = list(html_preview = FALSE))) # html_document always as we renderUI below
         )
       )
     })
-    
+
     output$output <- renderUI({
       on.exit(unlink(rmd_out()))
       # todo: includeMarkdown breaks css of the app

inst/poc_crf2.R

@@ -159,7 +159,7 @@ tm_swimlane <- function(label = "Swimlane", plot_height = 700) {
                     extreme_grade
                   )
                 )
-              
+
               p <- plotly::plot_ly(
                 source = "swimlane",
                 colors = c(