From b37c0de26670382ae02bbfe31ba64ada4d584a22 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Tue, 1 Oct 2024 09:36:11 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 R/tm_g_gh_boxplot.R                   | 12 ++++++++----
 R/tm_g_gh_correlationplot.R           |  6 ++++--
 R/tm_g_gh_density_distribution_plot.R |  6 ++++--
 R/tm_g_gh_scatterplot.R               |  6 ++++--
 R/tm_g_gh_spaghettiplot.R             |  6 ++++--
 5 files changed, 24 insertions(+), 12 deletions(-)

diff --git a/R/tm_g_gh_boxplot.R b/R/tm_g_gh_boxplot.R
index 16fcec28..a8dc415a 100644
--- a/R/tm_g_gh_boxplot.R
+++ b/R/tm_g_gh_boxplot.R
@@ -510,8 +510,10 @@ srv_g_boxplot <- function(id,
 
       numeric_cols <- setdiff(names(dplyr::select_if(tbl, is.numeric)), "n")
 
-      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(tbl,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 4)
     })
 
@@ -578,8 +580,10 @@ srv_g_boxplot <- function(id,
 
       numeric_cols <- names(dplyr::select_if(df, is.numeric))
 
-      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(df,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 4)
     })
 
diff --git a/R/tm_g_gh_correlationplot.R b/R/tm_g_gh_correlationplot.R
index 38de330f..4e7fe9d3 100644
--- a/R/tm_g_gh_correlationplot.R
+++ b/R/tm_g_gh_correlationplot.R
@@ -879,8 +879,10 @@ srv_g_correlationplot <- function(id,
 
       numeric_cols <- names(dplyr::select_if(df, is.numeric))
 
-      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(df,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 4)
     })
 
diff --git a/R/tm_g_gh_density_distribution_plot.R b/R/tm_g_gh_density_distribution_plot.R
index c8bd698f..b09d039a 100644
--- a/R/tm_g_gh_density_distribution_plot.R
+++ b/R/tm_g_gh_density_distribution_plot.R
@@ -410,8 +410,10 @@ srv_g_density_distribution_plot <- function(id, # nolint
       tbl <- create_table()[["tbl"]]
       numeric_cols <- names(dplyr::select_if(tbl, is.numeric))
 
-      DT::datatable(tbl, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(tbl,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 2)
     })
 
diff --git a/R/tm_g_gh_scatterplot.R b/R/tm_g_gh_scatterplot.R
index 0526fc07..2b0f08fa 100644
--- a/R/tm_g_gh_scatterplot.R
+++ b/R/tm_g_gh_scatterplot.R
@@ -429,8 +429,10 @@ srv_g_scatterplot <- function(id,
 
       numeric_cols <- names(dplyr::select_if(df, is.numeric))
 
-      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(df,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 4)
     })
 
diff --git a/R/tm_g_gh_spaghettiplot.R b/R/tm_g_gh_spaghettiplot.R
index 5f115f47..c90c6b6e 100644
--- a/R/tm_g_gh_spaghettiplot.R
+++ b/R/tm_g_gh_spaghettiplot.R
@@ -578,8 +578,10 @@ srv_g_spaghettiplot <- function(id,
       df <- df[order(df$PARAMCD, df[[trt_group]], df$USUBJID, df[[xvar]]), ]
       numeric_cols <- names(dplyr::select_if(df, is.numeric))
 
-      DT::datatable(df, rownames = FALSE, options = list(scrollX = TRUE),
-                    callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")) %>%
+      DT::datatable(df,
+        rownames = FALSE, options = list(scrollX = TRUE),
+        callback = DT::JS("$.fn.dataTable.ext.errMode = 'none';")
+      ) %>%
         DT::formatRound(numeric_cols, 4)
     })