dplyr pull() used to extract a single column #17

kassambara · Aug 2, 2017 · 1d1a0ed · 1d1a0ed
1 parent 6f7419b
commit 1d1a0ed
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -755,10 +755,7 @@ p
 
 # Select a colun as vector from tiblle data frame
 .select_vec <- function(df, column){
-  if(is.numeric(column))
-    df %>% dplyr::select(column) %>% unlist(use.names = FALSE)
-  else
-    df %>% dplyr::select_(.dots = column) %>% unlist(use.names = FALSE)
+  dplyr::pull(df, column)
 }
 
 # Select the top up or down rows of a data frame sorted by variables