Add more prefixes

Author: llrs-roche

R/tm_a_regression.R

@@ -604,7 +604,7 @@ srv_a_regression <- function(id,
         plot <- substitute(
           expr = ggplot2::ggplot(fit$model[, 2:1], ggplot2::aes_string(regressor, response)) +
             ggplot2::geom_point(size = size, alpha = alpha) +
-            stat_smooth(method = "lm", formula = y ~ x, se = FALSE),
+            ggplot2::stat_smooth(method = "lm", formula = y ~ x, se = FALSE),
           env = list(
             regressor = regression_var()$regressor,
             response = regression_var()$response,

R/tm_g_distribution.R

@@ -869,7 +869,7 @@ srv_distribution <- function(id,
         if (add_dens_var) {
           plot_call <- substitute(
             expr = plot_call +
-              stat_density(
+              ggplot2::stat_density(
                 ggplot2::aes(y = ggplot2::after_stat(const * m_type2)),
                 geom = "line",
                 position = "identity",