R/germline_ui.R

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

germline_ui <- function(id){

    ns <- shiny::NS(id)

    shiny::tagList(
      iatlas.modules::titleBox(
        "CRI iAtlas Explorer — Germline Analysis"
      ),
      iatlas.modules::textBox(
        width = 12,
        shiny::p("This module provides interactive visualizations related to the manuscript ",
          a(href = "https://doi.org/10.1016/j.immuni.2021.01.011", "Sayaman et al., Germline genetic contribution to the immune landscape of cancer, Immunity (2021)")),
        shiny::p("Explore the germline genetic contribution to the immune landscape of cancer with results of heritability analysis, GWAS, and rare variant analysis across 30 non-hematological cancer types characterized by the TCGA. All analyses are adjusted for cancer type, age at diagnosis, sex, and the first seven components from principal component analysis (PCA) done on SNP data, which capture overall genetic ancestry."),
        shiny::p("These analyses are not influenced by changes in grouping and filters in the CG Cohort Selection.")
      ),
      iatlas.modules::sectionBox(
        title = "Heritability",
        module_ui(ns("germline_heritability"))
      ),
      iatlas.modules::sectionBox(
        title = "GWAS",
        module_ui(ns("germline_gwas"))
      ),
      iatlas.modules::sectionBox(
        title = "Rare Variants",
        module_ui(ns("germline_rarevariants"))
      )
    )


}