chore: fix linter errors

Author: averissimo

R/tm_a_pca.R

@@ -264,19 +264,31 @@ ui_a_pca <- function(id, ...) {
             ),
             conditionalPanel(
               condition = sprintf("input['%s'] == 'Elbow plot'", ns("plot_type")),
-              ui_decorate_teal_data(ns("d_elbow_plot"), decorators = subset_decorators("elbow_plot", args$decorators))
+              ui_decorate_teal_data(
+                ns("d_elbow_plot"),
+                decorators = subset_decorators("elbow_plot", args$decorators)
+              )
             ),
             conditionalPanel(
               condition = sprintf("input['%s'] == 'Circle plot'", ns("plot_type")),
-              ui_decorate_teal_data(ns("d_circle_plot"), decorators = subset_decorators("circle_plot", args$decorators))
+              ui_decorate_teal_data(
+                ns("d_circle_plot"),
+                decorators = subset_decorators("circle_plot", args$decorators)
+              )
             ),
             conditionalPanel(
               condition = sprintf("input['%s'] == 'Biplot'", ns("plot_type")),
-              ui_decorate_teal_data(ns("d_biplot"), decorators = subset_decorators("biplot", args$decorators))
+              ui_decorate_teal_data(
+                ns("d_biplot"),
+                decorators = subset_decorators("biplot", args$decorators)
+              )
             ),
             conditionalPanel(
               condition = sprintf("input['%s'] == 'Eigenvector plot'", ns("plot_type")),
-              ui_decorate_teal_data(ns("d_eigenvector_plot"), decorators = subset_decorators("eigenvector_plot", args$decorators))
+              ui_decorate_teal_data(
+                ns("d_eigenvector_plot"),
+                decorators = subset_decorators("eigenvector_plot", args$decorators)
+              )
             )
           ),
           teal.widgets::panel_item(

R/tm_outliers.R

@@ -343,15 +343,24 @@ ui_outliers <- function(id, ...) {
       ),
       conditionalPanel(
         condition = paste0("input['", ns("tabs"), "'] == 'Boxplot'"),
-        ui_decorate_teal_data(ns("d_box_plot"), decorators = subset_decorators("box_plot", args$decorators))
+        ui_decorate_teal_data(
+          ns("d_box_plot"),
+          decorators = subset_decorators("box_plot", args$decorators)
+        )
       ),
       conditionalPanel(
         condition = paste0("input['", ns("tabs"), "'] == 'Density Plot'"),
-        ui_decorate_teal_data(ns("d_density_plot"), decorators = subset_decorators("density_plot", args$decorators))
+        ui_decorate_teal_data(
+          ns("d_density_plot"),
+          decorators = subset_decorators("density_plot", args$decorators)
+        )
       ),
       conditionalPanel(
         condition = paste0("input['", ns("tabs"), "'] == 'Cumulative Distribution Plot'"),
-        ui_decorate_teal_data(ns("d_cumulative_plot"), decorators = subset_decorators("cumulative_plot", args$decorators))
+        ui_decorate_teal_data(
+          ns("d_cumulative_plot"),
+          decorators = subset_decorators("cumulative_plot", args$decorators)
+        )
       ),
       ui_decorate_teal_data(ns("d_table"), decorators = subset_decorators("table", args$decorators)),
       teal.widgets::panel_item(

R/utils.R

@@ -328,7 +328,7 @@ ui_decorate_teal_data <- function(id, decorators, ...) {
 
 #' Internal function to check if decorators is a valid object
 #' @noRd
-check_decorators <- function(x, names = NULL, null.ok = FALSE) {
+check_decorators <- function(x, names = NULL, null.ok = FALSE) { # nolint: object_name.
   checkmate::qassert(null.ok, "B1")
 
   check_message <- checkmate::check_list(