From 126edb974d6925a40a5cdaab21b70f5510e8208f Mon Sep 17 00:00:00 2001
From: Victoria Agudetse Roures <victoria.agudetse@bsc.es>
Date: Fri, 18 Nov 2022 16:24:00 +0100
Subject: [PATCH] Change data_summary() to use logger without sink()

---
 tools/data_summary.R | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/tools/data_summary.R b/tools/data_summary.R
index 34b6bd6e..4ff30875 100644
--- a/tools/data_summary.R
+++ b/tools/data_summary.R
@@ -19,14 +19,22 @@ data_summary <- function(data_cube, recipe) {
   
   # Create log instance and sink output to logfile and terminal
   info(recipe$Run$logger, "DATA SUMMARY:")
-  sink(recipe$Run$logfile, append = TRUE, split = TRUE)
-  print(paste0(object_name, " months: ", months))
-  print(paste0(object_name, " range: ", sdate_min, " to ", sdate_max))
-  print(paste0(object_name, " dimensions: "))
-  print(dim(data_cube$data))
-  print(paste0("Statistical summary of the data in ", object_name, ":"))
-  print(summary(data_cube$data))
-  print("---------------------------------------------")
-  sink()
+  # sink(recipe$Run$logfile, append = TRUE, split = TRUE)
+  info(recipe$Run$logger, paste(object_name, "months:", months))
+  info(recipe$Run$logger, paste(object_name, "range:", sdate_min, "to", 
+				 sdate_max))
+  info(recipe$Run$logger, paste(object_name, "dimensions:"))
+  output_string <- capture.output(dim(data_cube$data))
+  for (i in output_string) {
+    info(recipe$Run$logger, i)
+  }
+  info(recipe$Run$logger, paste0("Statistical summary of the data in ",
+				 object_name, ":"))
+  output_string <- capture.output(summary(data_cube$data))
+  for (i in output_string) {
+    info(recipe$Run$logger, i)
+  }
+  info(recipe$Run$logger, "---------------------------------------------")
+  # sink()
 }
   
-- 
GitLab