R/clinical_outcomes_heatmap_ui.R

In CRI-iAtlas/iatlas-app: What the Package Does (One Line, Title Case)

clinical_outcomes_heatmap_ui <- function(id) {

    ns <- shiny::NS(id)

    shiny::tagList(
        iatlas.modules::messageBox(
            width = 12,
            shiny::includeMarkdown("inst/markdown/clinical_outcomes_heatmap.markdown")
        ),
        shiny::fluidRow(
            iatlas.modules::optionsBox(
                width = 12,
                shiny::fluidRow(
                  shiny::column(
                      width = 6,
                      shiny::uiOutput(ns("time_feature_selection_ui"))
                  ),
                  shiny::column(
                      width = 6,
                      shiny::uiOutput(ns("class_selection_ui"))
                  )
                ),
                shiny::column(
                  width = 8,
                  shiny::uiOutput(ns("extra_group_ui"))
                )
            ),
            iatlas.modules::plotBox(
                width = 12,
                shiny::fluidRow(
                    "heatmap" %>%
                        ns() %>%
                        plotly::plotlyOutput(., height = 600) %>%
                        shinycssloaders::withSpinner(.),
                    iatlas.modules::plotly_ui(ns("heatmap"))
                )
            )
        )
    )
}