[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/module_colur_picker.R

@@ -58,7 +58,6 @@ colour_picker_srv <- function(id, x, default_colors) {
 }
 
 
-
 #' Color palette discrete
 #'
 #' To specify custom discrete colors to `plotly` or `ggplot` elements one needs to specify a vector named by

R/tm_g_bivariate_picks.R

@@ -386,7 +386,6 @@ srv_g_bivariate.picks <- function(id,
       teal::validate_has_data(anl[, c(x_name, y_name), drop = FALSE], 3, complete = TRUE, allow_inf = FALSE)
 
 
-
       cl <- bivariate_plot_call(
         data_name = "anl",
         x = x_name,

R/tm_t_reactable.R

@@ -34,8 +34,9 @@ ui_t_reactables <- function(id, decorators = list()) {
 }
 
 srv_t_reactables <- function(
-    id, data, filter_panel_api, datanames,
-    colnames = list(), decorators = list(), reactable_args = list()) {
+  id, data, filter_panel_api, datanames,
+  colnames = list(), decorators = list(), reactable_args = list()
+) {
   moduleServer(id, function(input, output, session) {
     datanames_r <- .validate_datanames(datanames = datanames, data = data)
     colnames_r <- reactive({

R/utils.R

@@ -450,7 +450,8 @@ children <- function(x, dataset_name = character(0)) {
 #' @param plotly_selected (`reactive`)
 #' @param children_datanames (`character`)
 .plotly_selected_filter_children <- function(
-    data, plot_dataname, xvar, yvar, plotly_selected, children_datanames) {
+  data, plot_dataname, xvar, yvar, plotly_selected, children_datanames
+) {
   xvar_r <- if (is.reactive(xvar)) xvar else reactive(xvar)
   yvar_r <- if (is.reactive(yvar)) yvar else reactive(yvar)