Mercurial > repos > ethevenot > checkformat

comparison checkformat_wrapper.R @ 2:b6a6b4cc932a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/checkformat.git commit e17f78630b4d21b54a4edd6015d50969ac859d6b
author ethevenot
date Tue, 06 Jun 2017 11:51:33 -0400
parents e194eec8e70c
children 80a38d36f946
comparison
equal deleted inserted replaced
1:e194eec8e70c 2:b6a6b4cc932a
58 cat("\nTable formats are OK; enjoy your analyses!\n", sep="") 58 cat("\nTable formats are OK; enjoy your analyses!\n", sep="")
59 59
60 cat("\nEnd of the '", modNamC, "' Galaxy module call: ", 60 cat("\nEnd of the '", modNamC, "' Galaxy module call: ",
61 format(Sys.time(), "%a %d %b %Y %X"), "\n", sep="") 61 format(Sys.time(), "%a %d %b %Y %X"), "\n", sep="")
62 62
63 cat("\n\n\n============================================================================")
64 cat("\nAdditional information about the call:\n")
65 cat("\n1) Parameters:\n")
66 print(cbind(value = argVc))
67
68 cat("\n2) Session Info:\n")
69 sessioninfo <- sessionInfo()
70 cat(sessioninfo$R.version$version.string,"\n")
71 cat("Main packages:\n")
72 for (pkg in names(sessioninfo$otherPkgs)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
73 cat("Other loaded packages:\n")
74 for (pkg in names(sessioninfo$loadedOnly)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
75
76 cat("============================================================================\n")
77
63 sink() 78 sink()
64 79
65 } else { 80 } else {
81
82 cat("\n\n\n============================================================================")
83 cat("\nAdditional information about the call:\n")
84 cat("\n1) Parameters:\n")
85 print(cbind(value = argVc))
86
87 cat("\n2) Session Info:\n")
88 sessioninfo <- sessionInfo()
89 cat(sessioninfo$R.version$version.string,"\n")
90 cat("Main packages:\n")
91 for (pkg in names(sessioninfo$otherPkgs)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
92 cat("Other loaded packages:\n")
93 for (pkg in names(sessioninfo$loadedOnly)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
94
95 cat("============================================================================\n")
66 96
67 sink() 97 sink()
68 stop("Please check the generated 'information' file") 98 stop("Please check the generated 'information' file")
69 99
70 } 100 }