--- a/heatmap_wrapper.R	Sat Aug 06 12:18:15 2016 -0400
+++ b/heatmap_wrapper.R	Tue Jun 06 11:58:43 2017 -0400
@@ -149,6 +149,21 @@
 cat("\nEnd of the '", modNamC, "' Galaxy module call: ",
     format(Sys.time(), "%a %d %b %Y %X"), "\n", sep = "")
 
+cat("\n\n\n============================================================================")
+cat("\nAdditional information about the call:\n")
+cat("\n1) Parameters:\n")
+print(cbind(value = argVc))
+
+cat("\n2) Session Info:\n")
+sessioninfo <- sessionInfo()
+cat(sessioninfo$R.version$version.string,"\n")
+cat("Main packages:\n")
+for (pkg in names(sessioninfo$otherPkgs)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
+cat("Other loaded packages:\n")
+for (pkg in names(sessioninfo$loadedOnly)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
+
+cat("============================================================================\n")
+
 sink()
 
 options(stringsAsFactors = strAsFacL)