R/sq_text.R

In smbache/squr: Structured Query Utility for R

#' Inline SQL Query
#'
#' @param text A character SQL query.
#'
#' @return An \code{sq} object.
#'
#' @export
sq_text <- function(text)
{
  if (!is_scalar_character(text))
    stop("Argument 'text' should be a scalar character value")

  structure(text, class = c("sq", "sql", "character"))
}