file_name <- ifelse(is.null(input[["seq_file"]][["name"]]), "none", input[["seq_file"]][["name"]]) cat("**Input file name**: ", file_name, "\n\n") cat(paste0("**Date**: ", Sys.time()), "\n\n")
for (i in prediction()) { cat("\n\n## ", sep = "") summary(i, double_linebreak = TRUE) plot(i) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.