R/util_set_doublequotes.R

In dataquieR: Data Quality in Epidemiological Research

#' Utility function to put strings in quotes
#'
#' This function generates usual double-quotes for each element of the character
#' vector
#'
#' @param string Character vector
#'
#' @return quoted string
util_set_dQuoteString <- function(string) {
  old <- options(useFancyQuotes = FALSE)
  on.exit(options(old))
  dQuote(string)
}