add ggplot2 prefix

donyunardi · donyunardi · commit d82ec2c472b0 · 2025-02-20T16:37:28.000-08:00
diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
@@ -611,7 +611,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
               )
 
             cols <- c(getOption("ggplot2.discrete.colour"), c("lightblue", "darkred", "black"))[1:3]
-            elbow_plot <- ggplot2::ggplot(mapping = aes_string(x = "component", y = "value")) +
+            elbow_plot <- ggplot2::ggplot(mapping = ggplot2::aes_string(x = "component", y = "value")) +
               ggplot2::geom_bar(
                 ggplot2::aes(fill = "Single variance"),
                 data = dplyr::filter(elb_dat, metric == "Proportion of Variance"),

Original file line number	Diff line number	Diff line change
`@@ -611,7 +611,7 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl`
`611`	`611`	`)`
`612`	`612`
`613`	`613`	`cols <- c(getOption("ggplot2.discrete.colour"), c("lightblue", "darkred", "black"))[1:3]`
`614`		`- elbow_plot <- ggplot2::ggplot(mapping = aes_string(x = "component", y = "value")) +`
	`614`	`+ elbow_plot <- ggplot2::ggplot(mapping = ggplot2::aes_string(x = "component", y = "value")) +`
`615`	`615`	`ggplot2::geom_bar(`
`616`	`616`	`ggplot2::aes(fill = "Single variance"),`
`617`	`617`	`data = dplyr::filter(elb_dat, metric == "Proportion of Variance"),`