Change single quotes to double quotes

Author: llrs-roche

R/tm_a_pca.R

@@ -438,7 +438,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")')
     anl_merged_q <- reactive({
       req(anl_merged_input())
       qenv %>%

R/tm_data_table.R

@@ -319,7 +319,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("ggplot2");library("dplyr");library("DT")')
       teal.code::eval_code(
         qenv,
         substitute(

R/tm_g_distribution.R

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

R/tm_g_response.R

@@ -379,7 +379,7 @@ srv_g_response <- function(id,
     )
 
     qenv <- teal.code::eval_code(data(),
-                                 "library('ggplot2');library('dplyr');library('forcats')")
+                                 '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())

R/tm_missing_data.R

@@ -536,7 +536,7 @@ srv_missing_data <- function(id,
       group_var <- input$group_by_var
       anl <- data_r()
       qenv <- teal.code::eval_code(data(), {
-        "library('dplyr');library('ggplot2');library('tidyr');library('forcats');library('glue')"
+        'library("dplyr");library("ggplot2");library("tidyr");library("forcats");library("glue")'
       })
 
       qenv <- if (!is.null(selected_vars()) && length(selected_vars()) != ncol(anl)) {