R/cellimage_ui.R

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

cellimage_ui <- function(id){

  ns <- shiny::NS(id)

  shiny::tagList(
    iatlas.modules::titleBox(
      "CRI iAtlas Explorer — Cell-Interaction Diagram"
    ),
    iatlas.modules::textBox(
      width = 12,
      "This module allows you to depict the estimated abundance of tumor cells and representative innate and adaptive cells in the microenvironment, along with the abundance of receptor and ligands mediating interactions between those cells."
    ),
    iatlas.modules::sectionBox(
      title = "Cell-Interaction Diagram",
      module_ui(ns("cellimage_main"))
    )
  )
}