Apply suggestions from code review

Co-authored-by: Marcin <[email protected]>
Signed-off-by: Lluís Revilla <[email protected]>

Author: llrs-roche

R/tm_a_pca.R

@@ -434,7 +434,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
       selector_list = selector_list,
       datasets = data
     )
-    qenv <- teal.code::eval_code(data(), 'library("ggplot2")')
+    qenv <- teal.code::eval_code(data(), 'library("ggplot2");library("dplyr");library("tidyr")') # nolint quotes
     anl_merged_q <- reactive({
       req(anl_merged_input())
       qenv %>%

R/tm_a_regression.R

@@ -462,7 +462,7 @@ srv_a_regression <- function(id,
 
     qenv <- teal.code::eval_code(
       data(),
-      "library('ggplot2');"
+      'library("ggplot2");library("dplyr")' # nolint quotes
     )
 
     anl_merged_q <- reactive({

R/tm_data_table.R

@@ -320,7 +320,7 @@ srv_data_table <- function(id,
       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")'
+        'library("dplyr");library("DT")'
       )
       teal.code::eval_code(
         qenv,

R/tm_g_association.R

@@ -344,7 +344,7 @@ srv_tm_g_association <- function(id,
 
     qenv <- teal.code::eval_code(
       data(),
-      'library("ggplot2");library("dplyr")'
+      'library("ggplot2");library("dplyr");library("tern");library("ggmosaic");library("grid")' # nolint quotes
     )
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_g_bivariate.R

@@ -549,7 +549,7 @@ srv_g_bivariate <- function(id,
     )
     qenv <- teal.code::eval_code(
       data(),
-      'library("ggplot2");library("dplyr")'
+      'library("ggplot2");library("dplyr");library("tern");library("ggmosaic");library("grid")' # nolint quotes
     )
 
     anl_merged_q <- reactive({

R/tm_g_distribution.R

@@ -541,7 +541,7 @@ srv_distribution <- function(id,
 
     qenv <- teal.code::eval_code(
       data(),
-      'library("ggplot2");library("forcats");library("dplyr")'
+      'library("ggplot2");library("rlistings");library("dplyr")' # nolint quotes
     )
 
     anl_merged_q <- reactive({

R/tm_g_response.R

@@ -392,7 +392,7 @@ srv_g_response <- function(id,
 
     qenv <- teal.code::eval_code(
       data(),
-      'library("ggplot2");library("dplyr");library("forcats")'
+      'library("ggplot2");library("dplyr")' # nolint quotes
     )
 
     anl_merged_q <- reactive({

R/tm_g_scatterplot.R

@@ -586,7 +586,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")') # nolint quotes
 
     anl_merged_q <- reactive({
       req(anl_merged_input())

R/tm_t_crosstable.R

@@ -311,7 +311,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
       selector_list = selector_list,
       merge_function = merge_function
     )
-    qenv <- teal.code::eval_code(data(), 'library("rtables");')
+    qenv <- teal.code::eval_code(data(), 'library("rtables");library("tern");library("dplyr")') # nolint quotes
     anl_merged_q <- reactive({
       req(anl_merged_input())
       qenv %>%