geposanui/R/input_page.R

#' Create the UI for the input page.
#' @noRd
input_page_ui <- function(id) {
    sidebarLayout(
        sidebarPanel(
            width = 3,
            preset_editor_ui(NS(id, "preset_editor")),
            tabsetPanel(
                id = NS(id, "apply_panel"),
                type = "hidden",
                tabPanelBody(value = "hide"),
                tabPanelBody(
                    value = "show",
                    actionButton(
                        NS(id, "apply_button"),
                        "Perform analysis",
                        class = "btn-primary",
                        style = "margin-top: 16px; margin-bottom: 16px"
                    )
                )
            ),
            comparison_editor_ui(NS(id, "comparison_editor"))
        ),
        mainPanel(
            width = 9,
            plotly::plotlyOutput(
                NS(id, "positions_plot"),
                width = "100%",
                height = "600px"
            )
        )
    )
}

#' Application logic for the input page.
#'
#' @param id ID for namespacing the inputs and outputs.
#' @return A list containing two reactives: the `preset` for the analysis and
#'   the `comparison_gene_ids`.
#'
#' @noRd
input_page_server <- function(id) {
    moduleServer(id, function(input, output, session) {
        current_preset <- reactiveVal(
            geposan::preset(genes[verified | suggested == TRUE, id])
        )

        potential_preset <- preset_editor_server("preset_editor")

        comparison_gene_ids <- comparison_editor_server(
            "comparison_editor",
            current_preset
        )

        output$positions_plot <- plotly::renderPlotly({
            preset <- potential_preset()

            if (is.null(preset)) {
                NULL
            } else {
                gene_sets <- list("Reference genes" = preset$reference_gene_ids)
                comparison_gene_ids <- comparison_gene_ids()

                if (length(comparison_gene_ids) >= 1) {
                    gene_sets <- c(
                        gene_sets,
                        list("Comparison genes" = comparison_gene_ids)
                    )
                }

                geposan::plot_positions(preset$species_ids, gene_sets)
            }
        })

        observe({
            if (is.null(potential_preset()) |
                rlang::hash(potential_preset()) ==
                    rlang::hash(current_preset())) {
                updateTabsetPanel(
                    session,
                    "apply_panel",
                    selected = "hide"
                )
            } else {
                updateTabsetPanel(
                    session,
                    "apply_panel",
                    selected = "show"
                )
            }
        })

        observe({
            current_preset(potential_preset())
        }) |> bindEvent(input$apply_button)

        list(
            preset = current_preset,
            comparison_gene_ids = comparison_gene_ids
        )
    })
}