getValue | R Documentation |
Asks to retrieve the value of an attribute.
getValue(id, attrType, valueInputId)
id |
output variable to read from (id which references the requested plot) |
attrType |
which value is requested. |
valueInputId |
reactive input to write to. |
Available attributes are 'Cutoffs', 'SelectedTraces' and 'ReferenceColumn'. Result will be sent through a reactive input.
No return value, called from shiny applications for side effects.
if(interactive()) { library(shiny) library(parallelPlot) ui <- fluidPage( actionButton("getSelectedTracesAction", "Retrieve Selected Traces"), p("The button displays the list of uncutted rows (use brush to reduce it)"), parallelPlotOutput("parPlot") ) server <- function(input, output, session) { output$parPlot <- renderParallelPlot({ parallelPlot(iris) }) observeEvent(input$getSelectedTracesAction, { attributeType <- "SelectedTraces" parallelPlot::getValue("parPlot", attributeType, "MySelectedTraces") }) observeEvent(input$MySelectedTraces, { showModal(modalDialog( title = "Selected Traces", toString(input$MySelectedTraces) )) }) } shinyApp(ui, server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.