SO 28491576

server.R

library(shiny)
library(ggvis)
library(dplyr)

shinyServer(
  function(input, output, session) {
      # A reactive subset of mtcars
      mtc <- reactive({ 
        mtcs <- mtcars %>% 
          mutate(name = row.names(.))
        if (nchar(input$filter) > 0)
        {
          mtcs <- mtcs %>% filter(grepl(input$filter, name))
        }
        mtcs
      })

      myvis <- reactive({
        
        myData <- mtc()
        my_lb <- linked_brush(keys = 1:nrow(myData), "red")

        out <- myData %>%
          ggvis(~wt, ~mpg) %>%
          scale_numeric("y", 
                        domain = c(0, max(myData$mpg)), 
                        nice=FALSE) %>%
          layer_points(fill := my_lb$fill, fill.brush := 'red') %>%
          my_lb$input()
        
        return(out)
      })

      myvis %>% bind_shiny("plot", "plot_ui")
    })

ui.R

library(shiny)
library(ggvis)

shinyUI(
  pageWithSidebar(
      div(),
      sidebarPanel(
        textInput('filter', 'Filters', ''),
        uiOutput("plot_ui")
      ),
      mainPanel(
        ggvisOutput("plot")
      )
    )
)