1danjordan

library(shiny)
library(plotly)
library(dplyr)

data(diamonds, package = "ggplot2")
df <- as_tibble(diamonds)
vars <- names(df)
numeric_vars <- df %>% select_if(is.numeric) %>% names()
categorical_vars <- df %>% select_if(~ !is.numeric(.x)) %>% names()