KKulma

library(shiny)
library(ggplot2)
library(DT)

### The app demonstrates how to fetch group info information from `plot_click` attribute and use it to subset a `dataTableOutput`.
### redoing the SO answer from https://stackoverflow.com/a/38919892/6327771 (example 2)


ui <- fluidPage(
  #  selectInput("var_y", "Y-Axis", choices = names(iris)),

KKulma

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")