Only add ggpp when needed

llrs-roche · llrs-roche · commit 7d8c801684c8 · 2025-02-19T11:41:34.000+01:00
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -681,7 +681,7 @@ srv_distribution <- function(id,
           )
         )
 
-        qenv <- teal.code::eval_code(qenv, 'library("forcats");library("ggpp")') # nolint quotes
+        qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes
         qenv <- teal.code::eval_code(
           qenv,
           substitute(
@@ -891,6 +891,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
           qenv <- teal.code::eval_code(
             qenv,
             substitute(
@@ -1035,6 +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
           qenv <- teal.code::eval_code(
             qenv,
             substitute(

Original file line number	Diff line number	Diff line change
`@@ -681,7 +681,7 @@ srv_distribution <- function(id,`
`681`	`681`	`)`
`682`	`682`	`)`
`683`	`683`
`684`		`- qenv <- teal.code::eval_code(qenv, 'library("forcats");library("ggpp")') # nolint quotes`
	`684`	`+ qenv <- teal.code::eval_code(qenv, 'library("forcats")') # nolint quotes`
`685`	`685`	`qenv <- teal.code::eval_code(`
`686`	`686`	`qenv,`
`687`	`687`	`substitute(`
`@@ -891,6 +891,7 @@ srv_distribution <- function(id,`
`891`	`891`	`}`
`892`	`892`
`893`	`893`	`if (length(t_dist) != 0 && main_type_var == "Density" && length(g_var) == 0 && length(s_var) == 0) {`
	`894`	`+ qenv <- teal.code::eval_code(qenv, 'library("ggpp")') # nolint quotes`
`894`	`895`	`qenv <- teal.code::eval_code(`
`895`	`896`	`qenv,`
`896`	`897`	`substitute(`
`@@ -1035,6 +1036,7 @@ srv_distribution <- function(id,`
`1035`	`1036`	`)`
`1036`	`1037`
`1037`	`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`
`1038`	`1040`	`qenv <- teal.code::eval_code(`
`1039`	`1041`	`qenv,`
`1040`	`1042`	`substitute(`