R/util_set_singlequotes.R

In dataquieR: Data Quality in Epidemiological Research

#' Utility function single quote string
#'
#' This function generates usual single-quotes for each element of the character
#' vector.
#'
#' @param string Character vector
#'
#' @return quoted string
util_set_sQuoteString <- function(string) {
  old <- options(useFancyQuotes = FALSE)
  on.exit(options(old))
  sQuote(string)
}