inst/app/radiant.R

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)
  )
}

Try the radiant.model package in your browser

Any scripts or data that you put into this service are public.

radiant.model documentation built on May 29, 2017, 11:17 p.m.