association plot typo

Author: m7pr

R/tm_g_association.R

@@ -503,7 +503,7 @@ srv_tm_g_association <- function(id,
           substitute(
             expr = {
               plot_top <- plot_calls[[1]]
-              plot_bottom <- plot_calls[[1]]
+              plot_bottom <- plot_calls[[2]]
               plot <- tern::stack_grobs(grobs = lapply(list(plot_top, plot_bottom), ggplot2::ggplotGrob))
             },
             env = list(