R/printVecNames.R

In unimi-dse/5547f4ce: A set of tools for Markov Chain analysis and rendering

#' Vector print
#'
#' Chains the elements of a vector along with their names in a string in the format
#' \code{"name1 = val1, name2 = val2, ..."}.
#'
#' @param v A vector to be printed
#'
#' @return A string containing the elements of the vector separated by "\code{,}"
#'
#' @examples
#' printVecNames(c("State 1" = "sunny", "State 2" = "cloudy", "State 3" = "rainy"))
#'
#' @export
printVecNames <- function(v) {
  if(is.null(v) || length(v) == 0)
    return(NULL)
  return(paste(paste(names(v), v, sep = " = "),
          collapse = ",  "))
}