R/blanks.R

In matlab2r: Translation Layer from MATLAB to R

#' @title Blanks
#' @description Create character vector of blanks
#' @details This function emulates the behavior of a homonimous function from
#' Matlab
#' @param n length of vector
#' @author Waldir Leoncio
#' @return Vector of n blanks
#' @export
#' @examples
#' blanks(1)
#' blanks(3)
blanks <- function(n) {
  if (n < 0) {
    warning("Negative n passed. Treating as n = 0")
    n <- 0
  }
  paste(rep(" ", n), collapse = "")
}