fix: Allow quoted column names in pull()

Fixes #15

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: poorman
 Type: Package
 Title: A Poor Man's Base R Copy of 'dplyr' Verbs
-Version: 0.1.11.10
+Version: 0.1.11.11
 Authors@R: person("Nathan", "Eastwood", "", "[email protected]",
     role = c("aut", "cre"))
 Maintainer: Nathan Eastwood <[email protected]>

R/pull.R

@@ -14,10 +14,11 @@
 #' mtcars %>% pull(-1)
 #' mtcars %>% pull(1)
 #' mtcars %>% pull(cyl)
+#' mtcars %>% pull("cyl")
 #'
 #' @export
 pull <- function(.data, var = -1) {
-  var <- deparse(substitute(var))
+  var <- deparse_var(var)
   col_names <- colnames(.data)
   if (!(var %in% col_names) & grepl("^[[:digit:]]+L|[[:digit:]]", var)) {
     var <- as.integer(gsub("L", "", var))

inst/tinytest/test_pull.R

@@ -6,7 +6,13 @@ expect_error(
 expect_equal(
   mtcars %>% pull(mpg),
   mtcars[, "mpg"],
-  info = "Test pulling a single column"
+  info = "Test pulling a single nse column"
+)
+
+expect_equal(
+  mtcars %>% pull("mpg"),
+  mtcars[, "mpg"],
+  info = "Test pulling a single quoted column"
 )
 
 expect_equal(