Change the value of a PCR plate input control on the client

Change the value of a PCR plate input control on the client

updatePcrPlateInput(
  session,
  inputId,
  label = NULL,
  selection = NULL,
  highlighting = NULL
)

Arguments

session

The session object passed to function given to shinyServer.

inputId

The id of the input object.

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.

Author

Konstantin A. Blagodatskikh <k.blag@yandex.ru>

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"),
   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)
}
#> Error in 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")): could not find function "fluidPage"