shiny-ui-sidebar.R

vars <- setdiff(names(iris), "Species")
selectInput("xcol", "X Variable", vars)
selectInput("ycol", "Y Variable", vars, selected = vars[[2]])
numericInput("clusters", "Cluster count", 3, min = 1, max = 9)