inst/shiny/shiny_ui/ui_main_primers.R

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

########
# Primer main UI panel
########
tabPanel("Primers", 
    icon = icon("tag", lib = "glyphicon"),
    br(),
    # individual primer cvg view
    radioButtons("view_cvg_individual",
    tagList(icon = icon("television"),
        "Show individual primer coverage"), 
    c("On" = "active", "Off" = "inactive"), 
    selected = "inactive", inline = TRUE
    ),
    shinyBS::bsTooltip("view_cvg_individual", 
    "Should the primer table show the coverage of individual templates or groups of templates?",
    "right", options = list(container = "body")
    ),
    DT::dataTableOutput("PrimerTab"), 
    br(),
    div(class="rightAligned",
        style = "color:blue; font-weight:bold", 
        htmlOutput("runModeText")
    )
)