R/immunomodulators_ui.R

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

immunomodulators_ui <- function(id) {

  ns <- shiny::NS(id)

  shiny::tagList(
    iatlas.modules::titleBox("CRI iAtlas Explorer — Immunomodulators"),
    iatlas.modules::textBox(
      width = 12,
      shiny::p(paste0(
        "Explore the expression of genes that code for ",
        "immunomodulating proteins, including checkpoint proteins."
      )),
    ),
    iatlas.modules::sectionBox(
      title = "Immunomodulator Distributions",
      module_ui(ns("distributions"))
    ),
    iatlas.modules::sectionBox(
      title = "Immunomodulator Annotations",
      module_ui(ns("datatable")
      )
    )
  )
}