#' @title Print a separator line
dispLine <- function() {
    cat('---------------------------------------------------\n')
}