Bug: error where numeric x_var & facet_scales = "free"

[davidhodge931]

library(simplevis)
library(palmerpenguins)

gg_point_facet(penguins, 
               x_var = bill_length_mm, 
               y_var = body_mass_g, 
               facet_var = species, 
               facet_scales = "free")

[davidhodge931]

delete warning
add args
add param doc

if (is.logical(y_var_vctr)) {
data <- data %>%
dplyr::mutate(dplyr::across(!!y_var, ~factor(.x, levels = c("TRUE", "FALSE"))))

y_var_vctr <- dplyr::pull(data, !!y_var)

}

if (is.character(y_var_vctr) | is.factor(y_var_vctr)) {
if (y_rev == FALSE) {
data <- data %>%
dplyr::mutate(dplyr::across(!!y_var, ~forcats::fct_rev(.x)))
}

y_var_vctr <- dplyr::pull(data, !!y_var)

}

Then copy and paste long x/y scale code

[davidhodge931]

add *_na_rm