diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R
index 182f81bde..ccdc10c47 100644
--- a/R/tm_g_pp_adverse_events.R
+++ b/R/tm_g_pp_adverse_events.R
@@ -154,7 +154,7 @@ template_adverse_events <- function(dataname = "ANL",
 
   chart_list <- add_expr(
     expr_ls = chart_list,
-    new_expr = quote(print(plot))
+    new_expr = quote(plot)
   )
 
   y$table <- bracket_expr(table_list)
diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R
index 278d1bded..d9e5bfb1d 100644
--- a/R/tm_g_pp_therapy.R
+++ b/R/tm_g_pp_therapy.R
@@ -192,7 +192,7 @@ template_therapy <- function(dataname = "ANL",
         ggtheme +
         theme
 
-      print(therapy_plot)
+      therapy_plot
     }, env = c(
       list(
         dataname = as.name(dataname),