Use "library(pkg)" instead of 'library("pkg")' #nolint

llrs-roche · llrs-roche · commit 5e3080d50b73 · 2025-10-09T11:59:18.000+02:00
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -437,7 +437,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's code")
         )
-      teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("tidyr")') # nolint: quotes_lintr
+      teal.code::eval_code(obj, "library(ggplot2);library(dplyr);library(tidyr)")
     })
     anl_merged_q <- reactive({
       req(anl_merged_input())
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -462,7 +462,7 @@ srv_a_regression <- function(id,
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's code")
         )
-      teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint: quotes_lintr
+      teal.code::eval_code(obj, "library(ggplot2);library(dplyr)")
     })
 
     anl_merged_q <- reactive({
diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -309,7 +309,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("dplyr");library("DT")' # nolint: quotes_lintr.
+        "library(dplyr);library(DT)"
       )
       teal.code::eval_code(
         qenv,
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -346,7 +346,7 @@ srv_tm_g_association <- function(id,
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's code")
         )
-      teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("ggmosaic")') # nolint: quotes_lintr
+      teal.code::eval_code(obj, "library(ggplot2);library(dplyr);library(ggmosaic)")
     })
     anl_merged_q <- reactive({
       req(anl_merged_input())
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -560,7 +560,7 @@ srv_g_bivariate <- function(id,
           teal.reporter::teal_card("## Module's code")
         )
       obj |>
-        teal.code::eval_code('library("ggplot2");library("dplyr")') |> # nolint: quotes_lintr
+        teal.code::eval_code("library(ggplot2);library(dplyr)") |>
         teal.code::eval_code(as.expression(anl_merged_input()$expr))
     })
 
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -521,7 +521,7 @@ srv_distribution <- function(id,
     )
 
     qenv <- reactive(
-      teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr
+      teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")
     )
 
     anl_merged_q <- reactive({
@@ -662,7 +662,7 @@ srv_distribution <- function(id,
             "Group by variable must be `factor`, `character`, or `integer`"
           )
         )
-        qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes_lintr
+        qenv <- teal.code::eval_code(qenv, "library(forcats)")
         qenv <- teal.code::eval_code(
           qenv,
           substitute(
@@ -680,7 +680,7 @@ srv_distribution <- function(id,
           )
         )
 
-        qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes_lintr
+        qenv <- teal.code::eval_code(qenv, "library(forcats)")
         qenv <- teal.code::eval_code(
           qenv,
           substitute(
@@ -890,7 +890,7 @@ srv_distribution <- function(id,
         }
 
         if (length(t_dist) != 0 && main_type_var == "Density" && length(g_var) == 0 && length(s_var) == 0) {
-          qenv <- teal.code::eval_code(qenv, 'library("ggpp")') # nolint quotes_lintr
+          qenv <- teal.code::eval_code(qenv, "library(ggpp)")
           qenv <- teal.code::eval_code(
             qenv,
             substitute(
@@ -1036,7 +1036,7 @@ srv_distribution <- function(id,
         )
 
         if (length(t_dist) != 0 && length(g_var) == 0 && length(s_var) == 0) {
-          qenv <- teal.code::eval_code(qenv, 'library("ggpp")') # nolint quotes_lintr
+          qenv <- teal.code::eval_code(qenv, "library(ggpp)")
           qenv <- teal.code::eval_code(
             qenv,
             substitute(
@@ -1232,7 +1232,7 @@ srv_distribution <- function(id,
         qenv <- common_q()
 
         if (length(s_var) == 0 && length(g_var) == 0) {
-          qenv <- teal.code::eval_code(qenv, 'library("generics")') # nolint quotes_lintr
+          qenv <- teal.code::eval_code(qenv, "library(generics)")
           qenv <- teal.code::eval_code(
             qenv,
             substitute(
@@ -1246,7 +1246,7 @@ srv_distribution <- function(id,
             )
           )
         } else {
-          qenv <- teal.code::eval_code(qenv, 'library("tidyr")') # nolint quotes_lintr
+          qenv <- teal.code::eval_code(qenv, "library(tidyr)")
           qenv <- teal.code::eval_code(
             qenv,
             substitute(
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -387,7 +387,7 @@ srv_g_response <- function(id,
     )
 
     qenv <- reactive(
-      teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr
+      teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")
     )
 
     anl_merged_q <- reactive({
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -588,7 +588,7 @@ srv_g_scatterplot <- function(id,
         teal.reporter::teal_card(obj),
         teal.reporter::teal_card("## Module's code")
       )
-      teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr
+      teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")
     })
 
     anl_merged_q <- reactive({
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -331,7 +331,7 @@ srv_g_scatterplotmatrix <- function(id,
         teal.reporter::teal_card(obj),
         teal.reporter::teal_card("## Module's code")
       )
-      qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint quotes_lintr
+      qenv <- teal.code::eval_code(obj, "library(dplyr);library(lattice)")
       teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))
     })
 
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -512,7 +512,7 @@ srv_missing_data <- function(id,
       )
 
       qenv <- teal.code::eval_code(obj, {
-        'library("dplyr");library("ggplot2");library("tidyr");library("gridExtra")' # nolint quotes
+        "library(dplyr);library(ggplot2);library(tidyr);library(gridExtra)"
       })
 
       qenv <- if (!is.null(selected_vars()) && length(selected_vars()) != ncol(anl)) {
@@ -1097,7 +1097,7 @@ srv_missing_data <- function(id,
       qenv <- if (!is.null(group_var)) {
         common_code_libraries_q <- teal.code::eval_code(
           qenv,
-          'library("forcats");library("glue")' # nolint
+          "library(forcats);library(glue)"
         )
         teal.code::eval_code(
           common_code_libraries_q,
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -453,7 +453,7 @@ srv_outliers <- function(id, data, outlier_var,
       req(anl_merged_input())
       teal.code::eval_code(
         data_obj(),
-        'library("dplyr");library("tidyr");library("tibble");library("ggplot2")' # nolint quotes
+        "library(dplyr);library(tidyr);library(tibble);library(ggplot2)"
       ) %>%
         teal.code::eval_code(as.expression(anl_merged_input()$expr))
     })
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -332,7 +332,7 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
           teal.reporter::teal_card(obj),
           teal.reporter::teal_card("## Module's code")
         )
-      teal.code::eval_code(obj, 'library("rtables");library("tern");library("dplyr")') # nolint quotes
+      teal.code::eval_code(obj, "library(rtables);library(tern);library(dplyr)")
     })
     anl_merged_q <- reactive({
       req(anl_merged_input())

Original file line number	Diff line number	Diff line change
`@@ -437,7 +437,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco`
`437`	`437`	`teal.reporter::teal_card(obj),`
`438`	`438`	`teal.reporter::teal_card("## Module's code")`
`439`	`439`	`)`
`440`		`- teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("tidyr")') # nolint: quotes_lintr`
	`440`	`+ teal.code::eval_code(obj, "library(ggplot2);library(dplyr);library(tidyr)")`
`441`	`441`	`})`
`442`	`442`	`anl_merged_q <- reactive({`
`443`	`443`	`req(anl_merged_input())`
Original file line number	Diff line number	Diff line change
`@@ -462,7 +462,7 @@ srv_a_regression <- function(id,`
`462`	`462`	`teal.reporter::teal_card(obj),`
`463`	`463`	`teal.reporter::teal_card("## Module's code")`
`464`	`464`	`)`
`465`		`- teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint: quotes_lintr`
	`465`	`+ teal.code::eval_code(obj, "library(ggplot2);library(dplyr)")`
`466`	`466`	`})`
`467`	`467`
`468`	`468`	`anl_merged_q <- reactive({`
Original file line number	Diff line number	Diff line change
`@@ -309,7 +309,7 @@ srv_data_table <- function(id,`
`309`	`309`	`teal::validate_has_data(df, min_nrow = 1L, msg = paste("data", dataname, "is empty"))`
`310`	`310`	`qenv <- teal.code::eval_code(`
`311`	`311`	`data(),`
`312`		`- 'library("dplyr");library("DT")' # nolint: quotes_lintr.`
	`312`	`+ "library(dplyr);library(DT)"`
`313`	`313`	`)`
`314`	`314`	`teal.code::eval_code(`
`315`	`315`	`qenv,`
Original file line number	Diff line number	Diff line change
`@@ -346,7 +346,7 @@ srv_tm_g_association <- function(id,`
`346`	`346`	`teal.reporter::teal_card(obj),`
`347`	`347`	`teal.reporter::teal_card("## Module's code")`
`348`	`348`	`)`
`349`		`- teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("ggmosaic")') # nolint: quotes_lintr`
	`349`	`+ teal.code::eval_code(obj, "library(ggplot2);library(dplyr);library(ggmosaic)")`
`350`	`350`	`})`
`351`	`351`	`anl_merged_q <- reactive({`
`352`	`352`	`req(anl_merged_input())`
Original file line number	Diff line number	Diff line change
`@@ -560,7 +560,7 @@ srv_g_bivariate <- function(id,`
`560`	`560`	`teal.reporter::teal_card("## Module's code")`
`561`	`561`	`)`
`562`	`562`	`obj \|>`
`563`		`- teal.code::eval_code('library("ggplot2");library("dplyr")') \|> # nolint: quotes_lintr`
	`563`	`+ teal.code::eval_code("library(ggplot2);library(dplyr)") \|>`
`564`	`564`	`teal.code::eval_code(as.expression(anl_merged_input()$expr))`
`565`	`565`	`})`
`566`	`566`
Original file line number	Diff line number	Diff line change
`@@ -521,7 +521,7 @@ srv_distribution <- function(id,`
`521`	`521`	`)`
`522`	`522`
`523`	`523`	`qenv <- reactive(`
`524`		`- teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr`
	`524`	`+ teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")`
`525`	`525`	`)`
`526`	`526`
`527`	`527`	`anl_merged_q <- reactive({`
`@@ -662,7 +662,7 @@ srv_distribution <- function(id,`
`662`	`662`	"Group by variable must be `factor`, `character`, or `integer`"
`663`	`663`	`)`
`664`	`664`	`)`
`665`		`- qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes_lintr`
	`665`	`+ qenv <- teal.code::eval_code(qenv, "library(forcats)")`
`666`	`666`	`qenv <- teal.code::eval_code(`
`667`	`667`	`qenv,`
`668`	`668`	`substitute(`
`@@ -680,7 +680,7 @@ srv_distribution <- function(id,`
`680`	`680`	`)`
`681`	`681`	`)`
`682`	`682`
`683`		`- qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes_lintr`
	`683`	`+ qenv <- teal.code::eval_code(qenv, "library(forcats)")`
`684`	`684`	`qenv <- teal.code::eval_code(`
`685`	`685`	`qenv,`
`686`	`686`	`substitute(`
`@@ -890,7 +890,7 @@ srv_distribution <- function(id,`
`890`	`890`	`}`
`891`	`891`
`892`	`892`	`if (length(t_dist) != 0 && main_type_var == "Density" && length(g_var) == 0 && length(s_var) == 0) {`
`893`		`- qenv <- teal.code::eval_code(qenv, 'library("ggpp")') # nolint quotes_lintr`
	`893`	`+ qenv <- teal.code::eval_code(qenv, "library(ggpp)")`
`894`	`894`	`qenv <- teal.code::eval_code(`
`895`	`895`	`qenv,`
`896`	`896`	`substitute(`
`@@ -1036,7 +1036,7 @@ srv_distribution <- function(id,`
`1036`	`1036`	`)`
`1037`	`1037`
`1038`	`1038`	`if (length(t_dist) != 0 && length(g_var) == 0 && length(s_var) == 0) {`
`1039`		`- qenv <- teal.code::eval_code(qenv, 'library("ggpp")') # nolint quotes_lintr`
	`1039`	`+ qenv <- teal.code::eval_code(qenv, "library(ggpp)")`
`1040`	`1040`	`qenv <- teal.code::eval_code(`
`1041`	`1041`	`qenv,`
`1042`	`1042`	`substitute(`
`@@ -1232,7 +1232,7 @@ srv_distribution <- function(id,`
`1232`	`1232`	`qenv <- common_q()`
`1233`	`1233`
`1234`	`1234`	`if (length(s_var) == 0 && length(g_var) == 0) {`
`1235`		`- qenv <- teal.code::eval_code(qenv, 'library("generics")') # nolint quotes_lintr`
	`1235`	`+ qenv <- teal.code::eval_code(qenv, "library(generics)")`
`1236`	`1236`	`qenv <- teal.code::eval_code(`
`1237`	`1237`	`qenv,`
`1238`	`1238`	`substitute(`
`@@ -1246,7 +1246,7 @@ srv_distribution <- function(id,`
`1246`	`1246`	`)`
`1247`	`1247`	`)`
`1248`	`1248`	`} else {`
`1249`		`- qenv <- teal.code::eval_code(qenv, 'library("tidyr")') # nolint quotes_lintr`
	`1249`	`+ qenv <- teal.code::eval_code(qenv, "library(tidyr)")`
`1250`	`1250`	`qenv <- teal.code::eval_code(`
`1251`	`1251`	`qenv,`
`1252`	`1252`	`substitute(`
Original file line number	Diff line number	Diff line change
`@@ -387,7 +387,7 @@ srv_g_response <- function(id,`
`387`	`387`	`)`
`388`	`388`
`389`	`389`	`qenv <- reactive(`
`390`		`- teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr`
	`390`	`+ teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")`
`391`	`391`	`)`
`392`	`392`
`393`	`393`	`anl_merged_q <- reactive({`
Original file line number	Diff line number	Diff line change
`@@ -588,7 +588,7 @@ srv_g_scatterplot <- function(id,`
`588`	`588`	`teal.reporter::teal_card(obj),`
`589`	`589`	`teal.reporter::teal_card("## Module's code")`
`590`	`590`	`)`
`591`		`- teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes_lintr`
	`591`	`+ teal.code::eval_code(data(), "library(ggplot2);library(dplyr)")`
`592`	`592`	`})`
`593`	`593`
`594`	`594`	`anl_merged_q <- reactive({`
Original file line number	Diff line number	Diff line change
`@@ -331,7 +331,7 @@ srv_g_scatterplotmatrix <- function(id,`
`331`	`331`	`teal.reporter::teal_card(obj),`
`332`	`332`	`teal.reporter::teal_card("## Module's code")`
`333`	`333`	`)`
`334`		`- qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint quotes_lintr`
	`334`	`+ qenv <- teal.code::eval_code(obj, "library(dplyr);library(lattice)")`
`335`	`335`	`teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))`
`336`	`336`	`})`
`337`	`337`