--- a/biosigner_wrapper.R	Sat Aug 06 12:17:12 2016 -0400
+++ b/biosigner_wrapper.R	Tue Jun 06 11:44:00 2017 -0400
@@ -1,4 +1,5 @@
-#!/usr/bin/env Rscript
+#!/usr/bin/Rscript --vanilla --slave --no-site-file
+
 
 library(batch) ## parseCommandArgs
 
@@ -131,13 +132,15 @@
 if(!is.null(tierMC)) {
     plot(bsnLs,
          tierMaxC = tierMaxC,
-         file.pdfC = argVc["figure_tier"],
+         file.pdfC = "figure_tier.pdf",
          .sinkC = argVc["information"])
+    file.rename("figure_tier.pdf", argVc["figure_tier"])
     plot(bsnLs,
          tierMaxC = tierMaxC,
          typeC = "boxplot",
-         file.pdfC = argVc["figure_boxplot"],
+         file.pdfC = "figure_boxplot.pdf",
          .sinkC = argVc["information"])
+    file.rename("figure_boxplot.pdf", argVc["figure_boxplot"])
 } else {
     pdf(argVc["figure_tier"])
     plot(1, bty = "n", type = "n",
@@ -169,8 +172,7 @@
 if(sum(tierMC %in% tierVc)) {
     cat("\nSignificant features from '", paste(tierVc, collapse = "', '"), "' tiers:\n", sep = "")
     print(tierMC[apply(tierMC, 1, function(rowVc) sum(rowVc %in% tierVc) > 0), ,
-                 drop = FALSE])
-
+                         drop = FALSE])
     cat("\nAccuracy:\n")
     print(round(getAccuracyMN(bsnLs), 3))
 } else
@@ -216,9 +218,25 @@
 cat("\nEnd of '", modNamC, "' Galaxy module call: ",
     as.character(Sys.time()), "\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)
 
 rm(list = ls())
-