R/drilldown_scatterplot_ui.R

In CRI-iAtlas/iatlas.modules: iAatlas Modules

drilldown_scatterplot_ui <- function(
  id,
  drilldown_html = htmltools::includeMarkdown(
    get_markdown_path("drilldown_scatterplot1")
  )
  ){

  ns <- shiny::NS(id)

  shiny::tagList(
    shiny::fluidRow(
      messageBox(
        width = 12,
        drilldown_html
      )
    ),
    shiny::conditionalPanel(
      condition = "output.display_feature_selection_ui",
      ns = ns,
      shiny::fluidRow(
        optionsBox(
          width = 12,
          shiny::column(
            width = 6,
            shiny::uiOutput(ns("x_feature_selection_ui"))
          ),
          shiny::column(
            width = 6,
            shiny::uiOutput(ns("y_feature_selection_ui"))
          )
        )
      )
    ),
    shiny::fluidRow(
      plotBox(
        width = 12,
        "scatterplot" %>%
          ns() %>%
          plotly::plotlyOutput(.) %>%
          shinycssloaders::withSpinner(.),
        plotly_ui(ns("scatterplot"))
      )
    )
  )
}