inst/app/radiant.R

In radiant.model: Model Menu for Radiant: Business Analytics using R and Shiny

predict_plot_controls <- function(type, vars_color = NULL, init_color = "none") {
  inp <- input[[paste0(type, "_evar")]]
  req(available(inp))
  vars <- varnames() %>% .[. %in% inp]

  xvar <- paste0(type, "_xvar")
  frow <- paste0(type, "_facet_row")
  fcol <- paste0(type, "_facet_col")
  col <- paste0(type, "_color")
  vars_facet <- c("None" = ".", vars)
  if (is.null(vars_color)) {
    vars_color <- c("None" = "none", vars)
  }

  tagList(
    selectizeInput(
      xvar, "X-variable:", choices = vars,
      selected = state_single(xvar, vars),
      multiple = FALSE
    ),
    selectizeInput(
      frow, "Facet row:", vars_facet,
      selected = state_single(frow, vars_facet, "."),
      multiple = FALSE
    ),
    selectizeInput(
      fcol, "Facet column:", vars_facet,
      selected = state_single(fcol, vars_facet, "."),
      multiple = FALSE
    ),
    selectizeInput(
      col, "Color:", vars_color,
      selected = state_single(col, vars_color, init_color),
      multiple = FALSE
    )
  )
}