inline is_column_vec() and better name for validate_column_vec()

Author: teunbrand

R/utilities.R

@@ -342,19 +342,17 @@ is_unique <- function(x) vec_unique_count(x) == 1L
 
 # Check inputs with tibble but allow column vectors (see #2609 and #2374)
 as_gg_data_frame <- function(x) {
-  x <- lapply(x, validate_column_vec)
+  x <- lapply(x, drop_column_vec)
   data_frame0(!!!x)
 }
-validate_column_vec <- function(x) {
-  if (is_column_vec(x)) {
+
+drop_column_vec <- function(x) {
+  dims <- dim(x)
+  if (length(dims) == 2L && dims[[2]] == 1L) {
     dim(x) <- NULL
   }
   x
 }
-is_column_vec <- function(x) {
-  dims <- dim(x)
-  length(dims) == 2L && dims[[2]] == 1L
-}
 
 # Parse takes a vector of n lines and returns m expressions.
 # See https://github.com/tidyverse/ggplot2/issues/2864 for discussion.