AmpGram 1.0: analysis report
In CancerGram: Prediction of Anticancer Peptides

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 1L:length(detailed_preds())) {
  cat("\n\n## ", names(detailed_preds())[[i]], "\n\n", sep = "")
  print(plot_single_protein(detailed_preds()[[i]]))
  print(knitr::kable(get_AMPs(selected_proteins()[[i]])))
}