From e39ac50337d6c37157ed2006945799008bf918a2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Fri, 8 Nov 2024 15:45:12 +0100
Subject: [PATCH] fix: e2e tests

---
 R/tm_g_pp_adverse_events.R | 2 +-
 R/tm_g_pp_therapy.R        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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),