inst/shiny/PathoStat/ui/ui_07_biomarker.R

In PathoStat: PathoStat Statistical Microbiome Analysis Package

tabPanel("Biomarker",
    tabsetPanel(
        tabPanel("Classification Model",
                 br(),
                 sidebarLayout(
                     sidebarPanel(
                         br(),
                         selectizeInput('taxl_biomarker', 'Taxonomy Level', choices = tax.name,
                                        selected='genus'),
                         selectInput("select_target_condition_biomarker", "Select Target Condition:",
                                     covariates.colorbar),
                         conditionalPanel(condition = "output.biomarker_condition_type == 'multiple'",
                                          helpText("Please select 2 levels to compare"),
                                          uiOutput("biomarker_condition_options")
                         ),
                         numericInput("num.cv.nfolds", "Number of CV nfolds", value = 3, max = 20, min = 3),
                         numericInput("num.biomarker.run", "Total runs", value = 100, max = 500, min = 50),
                         selectInput("select_covariate_condition_biomarker", "Select Covarites Conditions:",
                                     covariates, multiple = TRUE),
                         selectInput("select_model_biomarker", "Select Model", c("Lasso Logistic Regression")),
                         actionButton("goButtonBiomarker", "Run!"),
                         width=3
                     ),
                     mainPanel(
                         tabsetPanel(
                             tabPanel("Feature selection",
                                      br(),
                            tableOutput("featureSelectionTmp")),
                            tabPanel("LOOCV",
                                     br(),
                                     plotOutput("loocv_output_simple",height=300),
                                     plotlyOutput("loocv.violin", height=300)),
                            tabPanel("LOOCV Bootstrap",
                                     br(),
                                     numericInput("num.bootstrap.loocv", "Number of Bootstrap LOOCV", value = 20, max = 100, min = 5),
                                     actionButton("goButtonBiomarkerBoot", "Run!"),
                                     tableOutput("loocv_output"))
                         ), width=9
                     )
                 )
        )
    )
)