[skip style] [skip vbump] Restyle files

insightsengineering · Oct 1, 2024 · b37c0de · b37c0de
1 parent a847902
commit b37c0de
Show file tree

Hide file tree

Showing 5 changed files with 24 additions and 12 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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)
     })