[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/tm_a_pca.R

@@ -435,7 +435,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
     )
     qenv <- reactive({
       obj <- data()
-      teal.reporter::teal_card(obj) <- 
+      teal.reporter::teal_card(obj) <-
         c(
           teal.reporter::teal_card("# Principal Component Analysis"),
           teal.reporter::teal_card(obj),

R/tm_a_regression.R

@@ -459,7 +459,7 @@ srv_a_regression <- function(id,
 
     qenv <- reactive({
       obj <- data()
-      teal.reporter::teal_card(obj) <- 
+      teal.reporter::teal_card(obj) <-
         c(
           teal.reporter::teal_card("# Linear Regression Plot"),
           teal.reporter::teal_card(obj),

R/tm_g_association.R

@@ -343,7 +343,7 @@ srv_tm_g_association <- function(id,
 
     qenv <- reactive({
       obj <- data()
-      teal.reporter::teal_card(obj) <- 
+      teal.reporter::teal_card(obj) <-
         c(
           teal.reporter::teal_card("# Association Plot"),
           teal.reporter::teal_card(obj),

R/tm_g_bivariate.R

@@ -556,7 +556,7 @@ srv_g_bivariate <- function(id,
 
     anl_merged_q <- reactive({
       obj <- data()
-      teal.reporter::teal_card(obj) <- 
+      teal.reporter::teal_card(obj) <-
         c(
           teal.reporter::teal_card("# Bivariate Plot"),
           teal.reporter::teal_card(obj),

R/tm_g_distribution.R

@@ -636,7 +636,7 @@ srv_distribution <- function(id,
       # Create a private stack for this function only.
 
       obj <- merged$anl_q_r()
-      teal.reporter::teal_card(obj) <- 
+      teal.reporter::teal_card(obj) <-
         c(
           teal.reporter::teal_card("# Distribution Plot"),
           teal.reporter::teal_card(obj),

R/tm_g_response.R

@@ -408,7 +408,7 @@ srv_g_response <- function(id,
       teal::validate_inputs(iv_r())
 
       qenv <- merged$anl_q_r()
-      teal.reporter::teal_card(qenv) <- 
+      teal.reporter::teal_card(qenv) <-
         c(
           teal.reporter::teal_card("# Response Plot"),
           teal.reporter::teal_card(qenv),

R/tm_outliers.R

@@ -473,7 +473,7 @@ srv_outliers <- function(id, data, outlier_var,
 
       ANL <- merged$anl_q_r()[["ANL"]]
       qenv <- merged$anl_q_r()
-      teal.reporter::teal_card(qenv) <- 
+      teal.reporter::teal_card(qenv) <-
         c(
           teal.reporter::teal_card("# Outliers Analysis"),
           teal.reporter::teal_card(qenv),