added test to display author email only if specified

SnakeChunks · Sep 23, 2018 · 0204801 · 0204801
1 parent cdab856
commit 0204801
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/scripts/RSnakeChunks/R/rna-seq_analysis.R b/scripts/RSnakeChunks/R/rna-seq_analysis.R
@@ -211,12 +211,19 @@ RNAseqAnalysis <- function(countFile,
 
   report.socket <- file(rmd.report)
 
+  if (is.null(parameters$email)
+      || (parameters$email == "")
+      || (parameters$email == "[AUTHOR_EMAIL]")) {
+    author.email <- ""
+  } else {
+    author.email <- paste("<", parameters$email, ">")
+  }
 
   Rmd.header <- paste(
     sep = '',
     '---
 title:  "', parameters$title,'"
-author: "', parameters$author, ' <', parameters$author_email, '>"
+author: "', parameters$author, author.email, '"
 date: Last update:`r format(Sys.time())`
 output:
   html_document: