## -----------------------------------------------------------------------------
c("Petal.Width", "Petal.Length")

## -----------------------------------------------------------------------------
library("wrapr")
   
qc(Petal.Width, Petal.Length)

## -----------------------------------------------------------------------------
iris[, qc(Petal.Width, Petal.Length)] %.>%
  head(.)

## -----------------------------------------------------------------------------
OTHER_SYMBOL <- "Petal.Length"
  
qc(Petal.Width, OTHER_SYMBOL)

qc(Petal.Width, .(OTHER_SYMBOL))

## -----------------------------------------------------------------------------
qc(Petal.Width, c(OTHER_SYMBOL))

## -----------------------------------------------------------------------------
qc(a = b)

## -----------------------------------------------------------------------------
LEFT_NAME = "a"

qc(.(LEFT_NAME) := b)