R/maybeQuote.R

maybeQuote <- function (x) {
    if (length(x) == 0) 
        return(character())
    if(is.numeric(x))return(x)
    #if (l10n_info()$"UTF-8") 
     #   paste("?", x, "?", sep = "")
    #else 
	paste("'", x, "'", sep = "")
}

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.