#' @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")
)
)
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.