# NOT RUN {
## 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)
}
# }
Run the code above in your browser using DataLab