R/inputVec.R

Defines functions inputVec

## print a vector as an input string
inputVec <- function(vec, verbose=TRUE) {
  res <- paste("c(", paste(sprintf("\"%s\"",vec), collapse=","),")\n", sep="")
  if(verbose) {
    cat(res)
  }
  return(invisible(res))
}

Try the ribiosUtils package in your browser

Any scripts or data that you put into this service are public.

ribiosUtils documentation built on March 13, 2020, 2:54 a.m.