R/dash_cov_ui.R

In alexchwong/NxtIRF: Graphical User Interface for High Performance BAM-based binary alternative splicing event quantitation, differential analysis, and visualisation

ui_cov <- function(id) {
    ns <- NS(id)
    wellPanel(
        .ui_notice(),
        fluidRow(style='height:20vh',
            column(4, 
                textOutput(ns("warning_cov")),
                div(style=.cov_ui_inline(250), 
                    selectizeInput(ns('genes_cov'), 'Genes', 
                        choices = "(none)")
                ),
                div(style=.cov_ui_inline(350), 
                    selectizeInput(ns('events_cov'), 'Events', 
                        choices = "(none)")
                )
            ),
            column(4,
                div(style=.cov_ui_inline(80),
                    selectInput(ns("chr_cov"), label = "Chr", 
                        choices = c("(none)"), selected = "(none)")),
                div(style=.cov_ui_inline(120),
                    numericInput(ns("start_cov"), label = "Left", 
                        value = c(""))),
                div(style=.cov_ui_inline(120),
                    numericInput(ns("end_cov"), label = "Right", 
                        value = c(""))),           
                br(),
                shinyWidgets::actionBttn(ns("zoom_out_cov"), 
                    style = "material-circle", 
                    color = "danger",icon = icon("minus")),
                div(style=.cov_ui_inline(50, "center", padding = 25),
                    textOutput(ns("label_zoom_cov"))),
                shinyWidgets::actionBttn(ns("zoom_in_cov"), 
                    style = "material-circle", 
                    color = "danger", icon = icon("plus")),
                div(style=.cov_ui_inline(alignment = "center", padding = 15),
                    shinyWidgets::radioGroupButtons(ns("strand_cov"), 
                        label = "Strand", justified = FALSE,
                        choices = c("*", "+", "-"), 
                        checkIcon = list(yes = icon("ok", lib = "glyphicon"))
                    )
                )
            ),
            column(4,
                shinyWidgets::radioGroupButtons(ns("select_events_cov"), 
                    label = 
                        "Select Events from Differential Expression Results",
                        justified = FALSE,
                        choices = c(
                            "Top N All Results", 
                            "Top N Filtered Results", 
                            "Highlighted"
                        ),
                    checkIcon = list(yes = icon("ok", lib = "glyphicon"))
                ),
                shinyWidgets::radioGroupButtons(ns("graph_mode_cov"), 
                    label = "Graph Mode", justified = FALSE,
                    choices = c("Pan", "Zoom", "Movable Labels"), 
                    checkIcon = list(yes = icon("ok", lib = "glyphicon"))),
                shinyWidgets::sliderTextInput(ns("slider_num_events_cov"), 
                    "Num Events", choices = c(5, 10, 25, 50, 100, 200, 500),
                    selected = 25) 
            )
        ),
        fluidRow(
            column(3, 
                actionButton(ns("refresh_coverage"), "Refresh Plot"),
                selectInput(ns('mode_cov'), 'View', width = '100%',
                    choices = c("Individual", "By Condition")),
                selectInput(ns('event_norm_cov'), 'Normalize Event', 
                    width = '100%', choices = c("(none)")),
                conditionalPanel(ns = ns,
                    condition = "['By Condition'].indexOf(input.mode_cov) >= 0",
                    selectInput(ns('condition_cov'), 'Condition', 
                        width = '100%', choices = c("(none)"))
                ),
                selectInput(ns('track1_cov'), 'Track 1', width = '100%',
                    choices = c("(none)")),
                selectInput(ns('track2_cov'), 'Track 2', width = '100%',
                    choices = c("(none)")),
                selectInput(ns('track3_cov'), 'Track 3', width = '100%',
                    choices = c("(none)")),
                selectInput(ns('track4_cov'), 'Track 4', width = '100%',
                    choices = c("(none)")),
                shinyWidgets::switchInput(ns("stack_tracks_cov"), 
                    label = "Stack Traces", labelWidth = "150px"),
                shinyWidgets::switchInput(ns("pairwise_t_cov"), 
                    label = "Pairwise t-test", labelWidth = "150px"),
                shinyWidgets::switchInput(ns("condense_cov"), 
                    label = "Condensed Tracks", labelWidth = "150px"),
                shinySaveButton(ns("saveplot_cov"), 
                    "Save Plot as PDF", "Save Plot as PDF...", 
                    filetype = list(PDF = "pdf")),
            ),
            column(9, plotlyOutput(ns("plot_cov"), height = "800px"))
        )    
    )
}

.cov_ui_inline <- function(width, alignment = "top", padding) {
    string <- paste0(
        "display: inline-block;",
        "vertical-align:", alignment, ";"
    )
    if(!missing(width)) {
        string <- paste0(string,
            "width: ", as.character(width), "px;"
        )
    }
    if(!missing(padding)) {
        string <- paste0(string,
            "padding:", as.character(padding), "px"
        )
    }
    return(string)
}