R/printcursetup.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' Title
#'
#' @param var.list
#' @param val.list
#' @param connection
#'
#' @return
#' @export
#'
#' @examples
printcursetup <- function(var.list, val.list, connection = '=') {
  # print current setup
  # Ver 1.1
  cat('                        \n')
  cat('     Current Setup      \n')
  cat('------------------------\n')
  for (i in 1:length(var.list)) {
    cat(sprintf(
      '%2d. %-20s %s %s\n',
      i,
      paste0(collapse = ' ', var.list[[i]]),
      connection,
      paste0(collapse = ' ', val.list[[i]])
    ))
  }
}  # print current setup @ver1.1