inst/shiny/shiny_ui/ui_side_analyze.R

In matdoering/openPrimeRui: Shiny Application for Multiplex PCR Primer Design and Analysis

########
# UI side panel for analysis of primers
########
tabPanel("Analyze", 
    icon = icon("cogs"),
    value = "analyze_panel",
    br(),
    h2(class="inline", "Analyze"),
    br(),
    br(),
    conditionalPanel("input.primer_analysis_type == 'evaluate'",
        ######
        # EVALUATION PANEL
        ######
        div(p("Evaluate the physicochemical properties of the input primers.",
             openPrimeRui:::create.help.button("eval_eval")),
             class = "one"
        ),
        actionButton("evaluateButton", 
            "Compute primer properties", 
            icon = icon("bar-chart"), class="actionStyleRun btn-primary"
        ),
        shinyBS::bsTooltip("evaluateButton", 
            "Compute the currently active primer properties but do not perform any filtering.",
            "right", options = list(container = "body")
        ),
        br(),br(),
        actionButton("quickFilterButton", 
            "Filter primers", 
            icon = icon("filter", lib = "glyphicon"), class="actionStyleRun btn-primary"
        ),
        shinyBS::bsTooltip("quickFilterButton", 
            "Determine the set of primers fulfilling the active primer selection criteria.",
            "right", options = list(container = "body")
        ),
        br(),br(),
        # adapter check button
        actionButton("check_adapters", 
                     "Check restriction sites",
                      icon = icon("scissors"), class="actionStyleRun btn-primary"
        ),
        shinyBS::bsTooltip("check_adapters", 
            "Identify whether the input primers might contain restriction sites.",
                "right", options = list(container = "body"))
        ), 
        conditionalPanel("input.primer_analysis_type == 'design'",
        ##########
        # DESIGN PANEL
        ##########
        div(p("Design a new set of primers for the loaded template sequences using the currently selected constraints as a selection criterion.", 
            openPrimeRui:::create.help.button("opti_optimization_overview")),
            class = "one"
        ),
        #shinyBS::bsCollapse(id = "design_options_algorithms_collapse", 
        shinyBS::bsCollapse(id = "design_options_algorithms_collapse", 
            open = "design_algo_panel",
            shinyBS::bsCollapsePanel(tagList(
                 icon("menu-hamburger", lib = "glyphicon"), 
                 "Design options"),
                 value = "design_algo_panel",
                div(p("The optimization algorithm for primer design influences two parameters: the size of the constructed primer set and the runtime. Integer linear programs (ILPs) gurantee minimal primer sets, but their worst-case runtime is exponential. Greedy algorithms, are faster (O n log n), but may yield slightly larger primer sets. ILPs are recommended when the size of the designed primer set should be as small as feasible or when primers are to be designed for few templates, or when the runtime is of no major concern.", openPrimeRui:::create.help.button("opti_algo_ref")), class = "two"),
                 shinyBS::bsTooltip("help_opti_algo_ref", 
                        HTML("References:<br>Pearson et al. (1996)<br>Bashir et al. (2007)"),
                        "right", options = list(container = "body"), 
                        trigger = "click"
                ),
                selectInput("optimization_algorithm", tagList(tagList(icon("cogs"), "Optimization algorithm")), choices  = c("Greedy", "ILP"), selected = "Greedy"), # used optimization algorithm
                shinyBS::bsTooltip("optimization_algorithm", 
                    "The algorithm for maximizing the coverage while minimizing the size of the primer set.",
                        "right", options = list(container = "body"), 
                        trigger = "click"
                ),
                #############
                # expert design options:
                #############
                shinyBS::bsCollapse(id = "design_expert_options",
                open = NULL,
                shinyBS::bsCollapsePanel(
                    tagList(
                        icon("menu-hamburger", lib = "glyphicon"), 
                        "Expert options"
                    ),
                    value = "design_expert_panel",
                checkboxInput("relaxation_active", 
                    "Constraint relaxation",
                    TRUE
                ),
                shinyBS::bsTooltip("relaxation_active", 
                        HTML("If the target sequence coverage cannot be reached, <br>the constraints are adjusted until the target coverage can be reached."),
                        "right", options = list(container = "body")
                ),
                conditionalPanel("input.relaxation_active", 
                    sliderInput("required_opti_cvg", 
                        tagList("Target coverage"), 
                        min = 0, max = 1, value = c(min = 1)
                    ), 
                    shinyBS::bsTooltip("required_opti_cvg", 
                        HTML("The percentage of template sequences <br>that should be covered by the designed primers."),
                        "right", options = list(container = "body")
                    )
                ) # conditional panel for relaxation closes
                )), # design expert panel closes
                # design options next button:
                div(class = "rightAligned", 
                    actionButton("confirm_algorithm_choice", 
                        "Confirm design options", icon = icon("check"), 
                        class = "actionStyleSmall",
                        style="color: #fff; background-color: #337ab7; border-color: #2e6da4"))
        ), # close design options panel
        #########
        # TEMPLATE REGION PANEL
        #########
        shinyBS::bsCollapsePanel(tagList(
                 icon("book", lib = "glyphicon"), 
                 "Optimization of binding regions"),
                 value = "design_optimize_binding",
                 div(p("The selected primer binding regions in the template sequences may not be well-suited for designing primers in case that they are subject to the formation of secondary structures of if they are not highly conserved. In these cases, you can obtain better results if you narrow down the possible primer binding range by considering these two factors."),
            class = "two"
                ),
            ###########
            sliderInput("minimal_region_length_opti", 
                label = tagList(icon("arrow-right", lib = "glyphicon"),
                    "Minimal binding region extent"), 
                min = 1, 
                max = 500, 
                value = 25
            ),
             shinyBS::bsTooltip("minimal_region_length_opti", 
                       "The minimal length of the adjusted binding regions.",
                        options = list(container = "body")
            ),
            ###########
            # optimization of binding region: template secondary structure 
            actionButton("modify_binding_regions_secondary_structures", "Avoid secondary structures", icon = icon("eraser"), class = "actionStyleRun btn-primary"), 
            shinyBS::bsTooltip("modify_binding_regions_secondary_structures", 
                 "Adjust the primer binding regions such that regions exhibiting secondary structures  are avoided.",
                "right", options = list(container = "body")
            ),
            br(),br(),
            actionButton("modify_binding_regions_conservation", "Select conserved binding regions", icon = icon("signal"), class = "actionStyleRun btn-primary"), 
            shinyBS::bsTooltip("modify_binding_regions_conservation", 
                 "Adjust the primer binding regions such that the most conserved regions are selected.",
                "right", options = list(container = "body")
            )
        ) # close panel
        ), # close collapse
        ##########
        # design button
        #######
        actionButton("designButton", "Design primers", 
                icon = icon("sort-amount-desc"),
                class="actionStyleRun btn-primary"),
        shinyBS::bsTooltip("designButton", 
            "Find a minimal set of primers maximizing the coverage subject to the specified design constraints.",
            "right", options = list(container = "body")
        )
    ), 
    conditionalPanel("input.primer_analysis_type == 'compare'",
        ############
        # COMPARISON PANEL
        ############
        div(p("Compare the properties of several primer sets with each other.",
            openPrimeRui:::create.help.button("compare")),
            class = "one"
        ),
        # comparison button
        actionButton("compare_primers", "Compare primer sets", icon = icon("scale", lib = "glyphicon"), class = "actionStyleRun btn-primary"),
        shinyBS::bsTooltip("compare_primers", 
            "Compare the properties of the selected primer sets with each other.",
            "right", options = list(container = "body")
        ),
        br(), br(),
        # re-analyze button
        actionButton("reanalyze_primers", "Reanalyze primer sets", 
            icon =  icon("bar-chart"),
            class = "actionStyleRun btn-primary"),
        shinyBS::bsTooltip("reanalyze_primers", 
            "Recompute the properties of the loaded primer sets to ensure that all sets have been evaluated according to the same settings.",
            "right", options = list(container = "body")
        ),
        br(), br(),
        # filter button for comparison
        actionButton("quickFilterButton_compare", "Filter primer sets", icon = icon("filter", lib = "glyphicon"), class="actionStyleRun btn-primary"),br(),
        shinyBS::bsTooltip("quickFilterButton_compare", 
            "Filter all selected primer sets according to the currently active constraints.",
            "right", options = list(container = "body")
        )
    ) 
)