Merge branch '786_attached_packages@main' of https://github.com/insightsengineering/teal.modules.general into 786_attached_packages@main

Author: llrs-roche

R/tm_a_regression.R

@@ -512,7 +512,7 @@ srv_a_regression <- function(id,
           selected = restoreInput(ns("label_var"), selected)
         )
 
-        data <- fortify(stats::lm(form, data = ANL))
+        data <- ggplot2::fortify(stats::lm(form, data = ANL))
         cooksd <- data$.cooksd[!is.nan(data$.cooksd)]
         max_outlier <- max(ceiling(max(cooksd) / mean(cooksd)), 2)
         cur_outlier <- isolate(input$outlier)
@@ -652,7 +652,7 @@ srv_a_regression <- function(id,
         substitute(
           expr = {
             class(fit$residuals) <- NULL
-            data <- fortify(fit)
+            data <- ggplot2::fortify(fit)
             plot <- graph
           },
           env = list(

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("tern");library("ggmosaic");library("grid")' # nolint quotes
+      'library("ggplot2");library("dplyr");library("tern");library("ggmosaic")' # nolint quotes
     )
     anl_merged_q <- reactive({
       req(anl_merged_input())
@@ -502,8 +502,9 @@ srv_tm_g_association <- function(id,
         teal.code::eval_code(
           substitute(
             expr = {
-              plot_top <- plot_calls[[1]]
-              plot_bottom <- plot_calls[[1]]
+              plots <- plot_calls
+              plot_top <- plots[[1]]
+              plot_bottom <- plots[[2]]
               plot <- tern::stack_grobs(grobs = lapply(list(plot_top, plot_bottom), ggplot2::ggplotGrob))
             },
             env = list(

R/tm_g_response.R

@@ -492,7 +492,7 @@ srv_g_response <- function(id,
 
       if (!freq) {
         plot_call <- substitute(
-          plot_call + expand_limits(y = c(0, 1.1)),
+          plot_call + ggplot2::expand_limits(y = c(0, 1.1)),
           env = list(plot_call = plot_call)
         )
       }