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