#' Epitope progress bar, epPB calls utils::txtProgressBar with some
#' standardized parameters to reduce redundancy.
#'
#' @param min txtProgressBar minimum value
#' @param max txtProgressBar maximum value
epPB <- function(min,max){
utils::txtProgressBar(min = min, max = max, initial = min,
char = "=", width = NA, style = 3, file = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.