R/safeQuote.R

In metrumresearchgroup/metrumrg: Pharmacometric Tools for Data Preparation, Modeling, Simulation, and Reporting

Defines functions safeQuote

Documented in safeQuote

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