pcrPlateInput: Create a PCR plate input control

In shinyMolBio: Molecular Biology Visualization Tools for 'Shiny' Apps

Description

Create an input control for representing PCR plate and dynamically selecting wells inside it.

Usage

pcrPlateInput(inputId,
       label = NULL,
       plateDescription,
       pcrFormat = pcrFormatType$new(8, 12, labelFormatType$new("ABC"),
        labelFormatType$new("123")),
       selection = NULL,
       highlighting = NULL,
       wellLabelTemplate = "{{sample}}",
       onHoverWellTextTemplate = "{{position}}\u000A{{sample}}\u000A{{targets}}",
       wellClassTemplate = NULL,
       wellStyleTemplate = NULL,
       wellGroupTemplate = "{{sample}}-{{targets}}",
       cssFile = system.file("/css/pcrPlateInputStyle.css",
                 package = "shinyMolBio"),
       cssText = NULL,
       legend = NULL,
       interactive = TRUE)

Arguments

inputId	The input slot that will be used to access the selected wells positions.
label	Display label for the control, or NULL for no label.
plateDescription	Plate description - basicly output from RDML AsTable() function.
pcrFormat	PCR plate parametrs. Should be pcrFormatType.
selection	Set preselected wells (e.g. c("A01", "A02") or c(1, 2))
highlighting	Set highlighted wells (e.g. c("A01", "A02") or c(1, 2))
wellLabelTemplate	Template of the well label.
onHoverWellTextTemplate	Template of the text on hover.
wellClassTemplate	Template of the well class (css class).
wellStyleTemplate	Template of the well style (css).
wellGroupTemplate	Template of the well group for selecting.
cssFile	Path to the css styles file.
cssText	CSS styles as text.
legend	Plate legend (any HTML content).
interactive	Should be this pcrPlate interactive or not.

Value

A PCR plate control that can be added to a UI definition.

Author(s)

Konstantin A. Blagodatskikh <[e-mail]>

See Also

updatePcrPlateInput

Examples

## Only run examples in interactive R sessions
library(RDML)
if (interactive()) {
ui <- fluidPage(
    pcrPlateInput("plate1",
                   "Plate 1",
                   RDML$new(system.file("/extdata/stepone_std.rdml", package = "RDML"))$AsTable(),
                  pcrFormatType$new(8,12,labelFormatType$new("ABC"),
                                         labelFormatType$new("123"))),
   verbatimTextOutput("selected")
 )
 server <- function(input, output) {
   output$selected <- renderText({ input$plate1 })
 }
 shinyApp(ui, server)
}

Example output

shinyMolBio documentation built on Aug. 2, 2019, 5:05 p.m.