[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/tm_a_regression.R

@@ -448,8 +448,10 @@ srv_a_regression <- function(id,
       )
     })
 
-    qenv <- teal.code::eval_code(data(),
-                                 "library('ggplot2');")
+    qenv <- teal.code::eval_code(
+      data(),
+      "library('ggplot2');"
+    )
 
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_data_table.R

@@ -318,8 +318,10 @@ srv_data_table <- function(id,
       df <- data()[[dataname]]
 
       teal::validate_has_data(df, min_nrow = 1L, msg = paste("data", dataname, "is empty"))
-      qenv <- teal.code::eval_code(data(),
-                                   'library("ggplot2");library("dplyr");library("DT")')
+      qenv <- teal.code::eval_code(
+        data(),
+        'library("ggplot2");library("dplyr");library("DT")'
+      )
       teal.code::eval_code(
         qenv,
         substitute(

R/tm_g_association.R

@@ -330,8 +330,10 @@ srv_tm_g_association <- function(id,
       selector_list = selector_list
     )
 
-    qenv <- teal.code::eval_code(data(),
-                                 'library("ggplot2");library("dplyr")')
+    qenv <- teal.code::eval_code(
+      data(),
+      'library("ggplot2");library("dplyr")'
+    )
     anl_merged_q <- reactive({
       req(anl_merged_input())
       qenv %>% teal.code::eval_code(as.expression(anl_merged_input()$expr))

R/tm_g_bivariate.R

@@ -535,8 +535,10 @@ srv_g_bivariate <- function(id,
       selector_list = selector_list,
       datasets = data
     )
-    qenv <- teal.code::eval_code(data(),
-                                 'library("ggplot2");library("dplyr")')
+    qenv <- teal.code::eval_code(
+      data(),
+      'library("ggplot2");library("dplyr")'
+    )
 
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_g_distribution.R

@@ -542,8 +542,10 @@ srv_distribution <- function(id,
       datasets = data
     )
 
-    qenv <- teal.code::eval_code(data(),
-                                 'library("ggplot2");library("forcats");library("dplyr")')
+    qenv <- teal.code::eval_code(
+      data(),
+      'library("ggplot2");library("forcats");library("dplyr")'
+    )
 
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_g_response.R

@@ -378,8 +378,10 @@ srv_g_response <- function(id,
       datasets = data
     )
 
-    qenv <- teal.code::eval_code(data(),
-                                 'library("ggplot2");library("dplyr");library("forcats")')
+    qenv <- teal.code::eval_code(
+      data(),
+      'library("ggplot2");library("dplyr");library("forcats")'
+    )
 
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_g_scatterplot.R

@@ -574,7 +574,7 @@ srv_g_scatterplot <- function(id,
       datasets = data,
       merge_function = "dplyr::inner_join"
     )
-    qenv <- teal.code::eval_code(data(),'library("ggplot2");library("dplyr")')
+    qenv <- teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")')
 
     anl_merged_q <- reactive({
       req(anl_merged_input())