View source: R/pcrPlate-input.R
updatePcrPlateInput | R Documentation |
Change the value of a PCR plate input control on the client
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>
## 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.