chore: add the line breaks

Author: vedhav

R/tm_a_pca.R

@@ -236,6 +236,7 @@ ui_a_pca <- function(id, ...) {
       encoding = tags$div(
         ### Reporter
         teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+        tags$br(), tags$br(),
         ###
         tags$label("Encodings", class = "text-primary"),
         teal.transform::datanames_input(args["dat"]),

R/tm_a_regression.R

@@ -287,6 +287,7 @@ ui_a_regression <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"), tags$br(),
       teal.transform::datanames_input(args[c("response", "regressor")]),

R/tm_g_association.R

@@ -234,6 +234,7 @@ ui_tm_g_association <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args[c("ref", "vars")]),

R/tm_g_bivariate.R

@@ -341,6 +341,7 @@ ui_g_bivariate <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args[c("x", "y", "row_facet", "col_facet", "color", "fill", "size")]),

R/tm_g_distribution.R

@@ -260,6 +260,7 @@ ui_distribution <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args[c("dist_var", "strata_var")]),

R/tm_g_response.R

@@ -265,6 +265,7 @@ ui_g_response <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args[c("response", "x", "row_facet", "col_facet")]),

R/tm_g_scatterplot.R

@@ -365,13 +365,15 @@ ui_g_scatterplot <- function(id, ...) {
     teal.widgets::standard_layout(
       output = teal.widgets::white_small_well(
         teal.widgets::plot_with_settings_ui(id = ns("scatter_plot")),
-        tags$h1(tags$strong("Selected points:"), style = "text-align: center !important; font-size: 150%;"),
+        tags$br(),
+        tags$h1(tags$strong("Selected points:"), style = "font-size: 150%;"),
         teal.widgets::get_dt_rows(ns("data_table"), ns("data_table_rows")),
         DT::dataTableOutput(ns("data_table"), width = "100%")
       ),
       encoding = tags$div(
         ### Reporter
         teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+        tags$br(), tags$br(),
         ###
         tags$label("Encodings", class = "text-primary"),
         teal.transform::datanames_input(args[c("x", "y", "color_by", "size_by", "row_facet", "col_facet")]),

R/tm_g_scatterplotmatrix.R

@@ -253,6 +253,7 @@ ui_g_scatterplotmatrix <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args$variables),

R/tm_missing_data.R

@@ -361,6 +361,7 @@ encoding_missing_data <- function(id, summary_per_patient = FALSE, ggtheme, data
   tagList(
     ### Reporter
     teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+    tags$br(), tags$br(),
     ###
     tags$label("Encodings", class = "text-primary"),
     helpText(

R/tm_outliers.R

@@ -266,6 +266,7 @@ ui_outliers <- function(id, ...) {
     encoding = tags$div(
       ### Reporter
       teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
+      tags$br(), tags$br(),
       ###
       tags$label("Encodings", class = "text-primary"),
       teal.transform::datanames_input(args[c("outlier_var", "categorical_var")]),