Fix missing attached packages

R/tm_missing_data.R

@@ -535,18 +535,21 @@ 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')"
+      })
 
       qenv <- if (!is.null(selected_vars()) && length(selected_vars()) != ncol(anl)) {
         teal.code::eval_code(
-          data(),
+          qenv,
           substitute(
             expr = ANL <- anl_name[, selected_vars, drop = FALSE],
             env = list(anl_name = as.name(dataname), selected_vars = selected_vars())
           )
         )
       } else {
         teal.code::eval_code(
-          data(),
+          qenv,
           substitute(expr = ANL <- anl_name, env = list(anl_name = as.name(dataname)))
         )
       }
@@ -790,7 +793,7 @@ srv_missing_data <- function(id,
 
       dev_ggplot2_args <- teal.widgets::ggplot2_args(
         labs = list(x = "Variable", y = "Missing observations"),
-        theme = list(legend.position = "bottom", axis.text.x = quote(element_text(angle = 45, hjust = 1)))
+        theme = list(legend.position = "bottom", axis.text.x = quote(ggplot2::element_text(angle = 45, hjust = 1)))
       )
 
       all_ggplot2_args <- teal.widgets::resolve_ggplot2_args(
@@ -808,32 +811,32 @@ srv_missing_data <- function(id,
         qenv,
         substitute(
           summary_plot_top <- summary_plot_obs %>%
-            ggplot() +
-            aes(
+            ggplot2::ggplot() +
+            ggplot2::aes(
               x = factor(create_cols_labels(col), levels = x_levels),
               y = n_pct,
               fill = isna
             ) +
-            geom_bar(position = "fill", stat = "identity") +
-            scale_fill_manual(
+            ggplot2::geom_bar(position = "fill", stat = "identity") +
+            ggplot2::scale_fill_manual(
               name = "",
               values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),
               labels = c("Present", "Missing")
             ) +
-            scale_y_continuous(
+            ggplot2::scale_y_continuous(
               labels = scales::percent_format(),
               breaks = seq(0, 1, by = 0.1),
               expand = c(0, 0)
             ) +
-            geom_text(
-              aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),
+            ggplot2::geom_text(
+              ggplot2::aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),
               hjust = 1,
               color = "black"
             ) +
             labs +
             ggthemes +
             themes +
-            coord_flip(),
+            ggplot2::coord_flip(),
           env = list(
             labs = parsed_ggplot2_args$labs,
             themes = parsed_ggplot2_args$theme,
@@ -870,8 +873,8 @@ srv_missing_data <- function(id,
           labs = list(x = "", y = "Missing patients"),
           theme = list(
             legend.position = "bottom",
-            axis.text.x = quote(element_text(angle = 45, hjust = 1)),
-            axis.text.y = quote(element_blank())
+            axis.text.x = quote(ggplot2::element_text(angle = 45, hjust = 1)),
+            axis.text.y = quote(ggplot2::element_blank())
           )
         )
 
@@ -890,32 +893,32 @@ srv_missing_data <- function(id,
           qenv,
           substitute(
             summary_plot_bottom <- summary_plot_patients %>%
-              ggplot() +
-              aes_(
+              ggplot2::ggplot() +
+              ggplot2::aes_(
                 x = ~ factor(create_cols_labels(col), levels = x_levels),
                 y = ~n_pct,
                 fill = ~isna
               ) +
-              geom_bar(alpha = 1, stat = "identity", position = "fill") +
-              scale_y_continuous(
+              ggplot2::geom_bar(alpha = 1, stat = "identity", position = "fill") +
+              ggplot2::scale_y_continuous(
                 labels = scales::percent_format(),
                 breaks = seq(0, 1, by = 0.1),
                 expand = c(0, 0)
               ) +
-              scale_fill_manual(
+              ggplot2::scale_fill_manual(
                 name = "",
                 values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),
                 labels = c("Present", "Missing")
               ) +
-              geom_text(
-                aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),
+              ggplot2::geom_text(
+                ggplot2::aes(label = ifelse(isna == TRUE, sprintf("%d [%.02f%%]", n, n_pct), ""), y = 1),
                 hjust = 1,
                 color = "black"
               ) +
               labs +
               ggthemes +
               themes +
-              coord_flip(),
+              ggplot2::coord_flip(),
             env = list(
               labs = parsed_ggplot2_args$labs,
               themes = parsed_ggplot2_args$theme,
@@ -982,7 +985,7 @@ srv_missing_data <- function(id,
         labs = list(x = "", y = ""),
         theme = list(
           legend.position = "bottom",
-          axis.text.x = quote(element_blank())
+          axis.text.x = quote(ggplot2::element_blank())
         )
       )
 
@@ -1001,9 +1004,9 @@ srv_missing_data <- function(id,
         labs = list(x = "", y = ""),
         theme = list(
           legend.position = "bottom",
-          axis.text.x = quote(element_blank()),
-          axis.ticks = quote(element_blank()),
-          panel.grid.major = quote(element_blank())
+          axis.text.x = quote(ggplot2::element_blank()),
+          axis.ticks = quote(ggplot2::element_blank()),
+          panel.grid.major = quote(ggplot2::element_blank())
         )
       )
 
@@ -1025,32 +1028,32 @@ srv_missing_data <- function(id,
             combination_plot_top <- data_combination_plot_cutoff %>%
               dplyr::select(id, n) %>%
               dplyr::distinct() %>%
-              ggplot(aes(x = id, y = n)) +
-              geom_bar(stat = "identity", fill = c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]) +
-              geom_text(
-                aes(label = n),
-                position = position_dodge(width = 0.9),
+              ggplot2::ggplot(ggplot2::aes(x = id, y = n)) +
+              ggplot2::geom_bar(stat = "identity", fill = c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]) +
+              ggplot2::geom_text(
+                ggplot2::aes(label = n),
+                position = ggplot2::position_dodge(width = 0.9),
                 vjust = -0.25
               ) +
-              ylim(c(0, max(data_combination_plot_cutoff$n) * 1.5)) +
+              ggplot2::ylim(c(0, max(data_combination_plot_cutoff$n) * 1.5)) +
               labs1 +
               ggthemes1 +
               themes1
 
             graph_number_rows <- length(unique(data_combination_plot_cutoff$id))
             graph_number_cols <- nrow(data_combination_plot_cutoff) / graph_number_rows
 
-            combination_plot_bottom <- data_combination_plot_cutoff %>% ggplot() +
-              aes(x = create_cols_labels(key), y = id - 0.5, fill = value) +
-              geom_tile(alpha = 0.85, height = 0.95) +
-              scale_fill_manual(
+            combination_plot_bottom <- data_combination_plot_cutoff %>% ggplot2::ggplot() +
+              ggplot2::aes(x = create_cols_labels(key), y = id - 0.5, fill = value) +
+              ggplot2::geom_tile(alpha = 0.85, height = 0.95) +
+              ggplot2::scale_fill_manual(
                 name = "",
                 values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),
                 labels = c("Present", "Missing")
               ) +
-              geom_hline(yintercept = seq_len(1 + graph_number_rows) - 1) +
-              geom_vline(xintercept = seq_len(1 + graph_number_cols) - 0.5, linetype = "dotted") +
-              coord_flip() +
+              ggplot2::geom_hline(yintercept = seq_len(1 + graph_number_rows) - 1) +
+              ggplot2::geom_vline(xintercept = seq_len(1 + graph_number_cols) - 0.5, linetype = "dotted") +
+              ggplot2::coord_flip() +
               labs2 +
               ggthemes2 +
               themes2
@@ -1161,7 +1164,7 @@ srv_missing_data <- function(id,
 
       dev_ggplot2_args <- teal.widgets::ggplot2_args(
         labs = list(x = "", y = ""),
-        theme = list(legend.position = "bottom", axis.text.x = quote(element_blank()))
+        theme = list(legend.position = "bottom", axis.text.x = quote(ggplot2::element_blank()))
       )
 
       all_ggplot2_args <- teal.widgets::resolve_ggplot2_args(
@@ -1238,20 +1241,20 @@ srv_missing_data <- function(id,
         teal.code::eval_code(
           substitute(
             expr = {
-              by_subject_plot <- ggplot(summary_plot_patients, aes(
+              by_subject_plot <- ggplot2::ggplot(summary_plot_patients, aes(
                 x = factor(id, levels = order_subjects),
                 y = factor(col, levels = ordered_columns[["column"]]),
                 fill = isna
               )) +
-                geom_raster() +
-                annotate(
+                ggplot2::geom_raster() +
+                ggplot2::annotate(
                   "text",
                   x = length(order_subjects),
                   y = seq_len(nrow(ordered_columns)),
                   hjust = 1,
                   label = sprintf("%d [%.02f%%]", ordered_columns[["na_count"]], ordered_columns[["na_percent"]])
                 ) +
-                scale_fill_manual(
+                ggplot2::scale_fill_manual(
                   name = "",
                   values = c("grey90", c(getOption("ggplot2.discrete.colour")[2], "#ff2951ff")[1]),
                   labels = c("Present", "Missing (at least one)")