R/model_selection_ui.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

model_selection_ui <- function(id){

    ns <- shiny::NS(id)

    shiny::fluidRow(
        iatlas.modules::optionsBox(
            width = 12,
            shiny::column(
                width = 12,
                insert_remove_element_ui(
                    ns("select_numeric_covariate"),
                    "Add numerical covariate"
                )
            ),
            shiny::column(
                width = 12,
                insert_remove_element_ui(
                    ns("select_categorical_covariate"),
                    "Add categorical covariate"
                )
            )
        )
    )
}