R/elem_info_panel.R

In KotulskaLab/AmyloGraph: AmyloGraph: a comprehensive database of amyloid-amyloid interactions

elem_info_panel <- function(ns)
  ifelsePanel(
    id = ns("ifelse"),
    condition = glue("input.select_node == '{AmyloGraph:::ag_option('str_null')}'"),
    content_true = elem_info_no_node_selected(ns),
    content_false = elem_info_node_selected(ns),
    ns = ns
  )

elem_info_no_node_selected <- function(ns)
  fillCol(
    id = "protein_details",
    "select node to display info about it and interactions associated with it"
  )

elem_info_node_selected <- function(ns)
  fillCol(
    id = "protein_details",
    helper(
      checkboxInput(
        ns("ignore_filters"),
        "Ignore filters in the tables below",
        value = FALSE), 
      content = "ignore_filters"
    ),
    helper(
      actionButton(
        ns("select_in_table"), 
        "Select in interactions table", 
        class = "ag-button"),
      content = "select_in_table"
    ),
    tabsetPanel(
      id = ns("tabs"),
      tabPanel(
        title = "Sources",
        htmlOutput(ns("info"))
      ),
      tabPanel(
        title = "Interactees",
        ui_table(ns("interactees"), BUTTONS[c("SELECT_ALL", "DESELECT_ALL")])
      ),
      tabPanel(
        title = "Interactors",
        ui_table(ns("interactors"), BUTTONS[c("SELECT_ALL", "DESELECT_ALL")])
      ),
      type = "pills"
    ),
    flex = c(NA, NA, 11)
  )