R/create_rf_ui.R

In mdlincoln/lumberjack: Interactively Explore randomForest Models

#' @import shiny
create_rf_ui <- function(rf_name) {
  shinyUI(
    fluidPage(
      titlePanel(title = rf_name, windowTitle = rf_name),
      sidebarLayout(
        sidebarPanel(
          uiOutput("class_checklist"),
          uiOutput("primary_term_buttons"),
          checkboxInput("log_x_axis", "Log-transform the x-axis? (ignored for categorical variables)", value = FALSE),
          uiOutput("secondary_term_buttons"),
          uiOutput("tertiary_term_buttons"),
          actionButton("calc", "Simulate!")
        ),
        mainPanel(
          plotOutput("influence_plot", width = "100%", height = "800px")
        )
      )
    )
  )
}