shiny-dbclick-reveal-group.R

library(shiny)
library(ggplot2)

### redoing the SO answer from https://stackoverflow.com/a/38919892/6327771 (example 2)


ui <- fluidPage(
  #  selectInput("var_y", "Y-Axis", choices = names(iris)),
  plotOutput("distPlot", dblclick = "plot_click"),
  uiOutput("dynamic")
  
)

server <- function(input, output) {
  
  output$distPlot <- renderPlot({
    #   req('Petal.Length')
    ggplot(iris, aes(Sepal.Width, Petal.Length, group = Species, color = Species)) + 
      geom_point() #+
      #stat_smooth(method = "lm", col = "red")
  })
  
  output$dynamic <- renderUI({
    req(input$plot_click) 
    verbatimTextOutput("vals")
  })
  
  output$vals <- renderPrint({
    hover <- input$plot_click 
    # print(str(hover)) # list
    y <- nearPoints(iris, input$plot_click)['Species']
    req(nrow(y) != 0)
    y
  })
  
}
shinyApp(ui = ui, server = server)