R/printme.R

printme <- function(x, SEP=" "){
    if(length(x)==1)return(maybeQuote(x))
    if(length(x) > 1){
		X <- maybeQuote(x)
		res <- paste(paste(X, SEP, sep=""), collapse="")
		return(res)
		}
}

Try the Maeswrap package in your browser

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

Maeswrap documentation built on May 2, 2019, 7:58 a.m.