library(ggplot2)
            library(DT)

            ui <- shinyUI(fluidPage(
            fluidRow(uiOutput("plotui")),
            fluidRow(dataTableOutput("plot_brushed_points"))))

            server <- shinyServer(function(input, output, session) {
            output$plotui <- renderUI({
            plotOutput("plot",brush = brushOpts(id = "plot_brush"))})

            output$plot <- renderPlot({plot(mtcars$wt,mtcars$mpg)})

            output$plot_brushed_points <- renderDataTable({
				brushedPoints(mtcars, input$plot_brush, mtcars$wt, mtcars$mpg)})
            })

            myapp <- shinyApp(ui, server)
            myapp

Error in .subset2(x, i, exact = exact) :
recursive indexing failed at level 2