Description Usage Arguments Author(s) Examples
View source: R/pcrPlate-input.R
Change the value of a PCR plate input control on the client
1 2 | updatePcrPlateInput(session, inputId, label = NULL, selection = NULL,
highlighting = NULL)
|
session |
The |
inputId |
The id of the |
label |
The label to set for the input object. |
selection |
The positions of the wells to be selected. |
highlighting |
The positions of the wells to be highlighted. |
Konstantin A. Blagodatskikh <k.blag@yandex.ru>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ## 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"),
actionButton("selectWellBtn",
"Select Well A01-A03")
)
server <- function(input, output, session) {
output$selected <- renderText({ input$plate1 })
observeEvent(
input$selectWellBtn,
{
updatePcrPlateInput(session,
"plate1",
selection = c("A01", "A02", "A03"))
})
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.