dataSelectionShiny.R

library(shiny)
library(ggplot2)

ui <- basicPage(
  plotOutput("plot1", brush = "plot_brush"),
  actionButton("select", label="Select Data"),
  actionButton("reset", label="Reset"),
  verbatimTextOutput("info")
)

server <- function(input, output) {
  v <- reactiveValues(data=mtcars)
  isolate(v$data$selected <- FALSE)

  observeEvent(input$select,{
    brushedData <- brushedPoints(v$data, input$plot_brush, allRows=TRUE)
    v$data$selected <- v$data$selected | brushedData$selected_
  })
  observeEvent(input$reset,{
    v$data$selected <- FALSE
  })
  output$plot1 <- renderPlot({
    ggplot(v$data, aes(x=wt, y=mpg,color=selected)) + geom_point()
  })

  output$info <- renderPrint({
    v$data[v$data$selected,]
  })
}

shinyApp(ui, server)