Nothing
tabpanel_evaluating <- fluidRow(
column(
3,
wellPanel(
uiOutput(outputId = "eval_learner_selection"),
fluidRow(
column(
12,
uiOutput(outputId = "eval_explanation_selection")
)
),
fluidRow(
column(
12,
uiOutput(outputId = "eval_loss_function_selection")
)
),
fluidRow(
column(
12,
uiOutput(outputId = "eval_compare_method_selection")
)
),
fluidRow(
column(
12,
uiOutput(outputId = "eval_analysis_plot_selection")
)
),
fluidRow(
column(
12,
uiOutput(outputId = "eval_analysis_automation")
)
),
fluidRow(
id = "automation_slider",
column(
12,
uiOutput(outputId = "eval_automation_slider")
)
),
hidden(
fluidRow(
id = "feature_selection_panel",
column(
12,
uiOutput(outputId = "eval_learner_feat_selection")
)
)
),
fluidRow(
id = "evaluate_start_button",
column(
12,
div(
style = "display:inline-block; width:100%; text-align: center;",
actionButton(inputId = "evaluate_start", label = "Start evaluating")
)
)
)
)
),
column(
9,
uiOutput(outputId = "eval_learner_plot_tabs")
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.