R/module_single_protein.R

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

ui_single_protein <- function(id) {
  ns <- NS(id)
  div(
    id = "panel_single_protein",
    class = "panel_contracted",
    elem_select_node(ns("select_node")),
    elem_info_panel(ns)
  )
}

server_single_protein <- function(id, edge_data) {
  moduleServer(id, function(input, output, session) {
    ns <- NS(id)
    
    subtables <- reactiveValues(
      interactees = NULL,
      interactors = NULL
    )
    
    output[["info"]] <- reactive_selected_node_label(input) %>%
      render_protein_info()
  
    subtables[["interactees"]] <- reactive_subtable_data(
      edge_data, NS(ns("interactees")), input, "from_id", "interactee_name")
    subtables[["interactors"]] <- reactive_subtable_data(
      edge_data, NS(ns("interactors")), input, "to_id", "interactor_name")
    
    server_table(
      "interactees",
      BUTTONS[c("SELECT_ALL", "DESELECT_ALL")],
      edge_data,
      table_data_func = function(edges, ns) {
        reactive_subtable_data(edges, ns, input, "from_id", "interactee_name")
      },
      render_table_func = render_interactions_subtable
    )
    
    server_table(
      "interactors",
      BUTTONS[c("SELECT_ALL", "DESELECT_ALL")],
      edge_data,
      table_data_func = function(edges, ns) {
        reactive_subtable_data(edges, ns, input, "to_id", "interactor_name")
      },
      render_table_func = render_interactions_subtable
    )
    
    transfer_selection_allowed <- reactive_allow_selection_transfer(input)
    observe_select_in_table_button(ns, transfer_selection_allowed)
    
    subtables
  })
}