Mercurial > repos > ethevenot > checkformat
comparison checkformat_wrapper.R @ 2:b6a6b4cc932a draft
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 } |