test to be removed, as x is not yet evaluated

ggobi · May 30, 2020 · a5ed871 · a5ed871
1 parent 44ce4ec
commit a5ed871
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/R/stat_prop.R b/R/stat_prop.R
@@ -177,13 +177,6 @@ ggally_colbar <- function(data, mapping,
   if (is.null(mapping$x)) stop("'x' aesthetic is required.")
   if (is.null(mapping$y)) stop("'y' aesthetic is required.")
 
-  x_var <- mapping_string(mapping$x)
-  y_var <- mapping_string(mapping$y)
-
-  # x should be a factor
-  if (!is.factor(data[[x_var]]))
-    data[[x_var]] <- factor(data[[x_var]])
-
   # y should be mapped to fill and x to by
   mapping$fill <- mapping$y
   mapping$y <- NULL