R/safeQuote.R

safeQuote <- function(x){
	hasSpace <- contains(" ", x)
	isQuoted <- contains("^[\"']", x)
	need <- hasSpace & !isQuoted
	x[need] <- glue("'", x[need], "'")
	x
}

    
anniejw6/metrumrg documentation built on May 10, 2019, 11:50 a.m.