R/quoting.R

In jimhester/fstrings: Interpreted String Literals

#' Quoting operators
#'
#' These functions make it easy to quote each individual element and are useful
#' in conjunction with [glue_collapse()]. These are thin wrappers around
#' [base::encodeString()].
#' @param x A character to quote.
#' @name quoting
#' @inherit base::encodeString return
#' @export
#' @examples
#' x <- 1:5
#' glue('Values of x: {glue_collapse(backtick(x), sep = ", ", last = " and ")}')
single_quote <- function(x) {
  encodeString(x, quote = "'", na.encode = FALSE)
}

#' @rdname quoting
#' @export
double_quote <- function(x) {
  encodeString(x, quote = '"', na.encode = FALSE)
}

#' @rdname quoting
#' @export
backtick <- function(x) {
  encodeString(x, quote = "`", na.encode = FALSE)
}