ECDF app with shiny & ggvis

server.R

library(shiny)
library(ggvis)
x <- seq(-4, 4, .1)
dat <- data.frame(x, y=dnorm(x))
g1 <- ggvis(dat, props(x = ~x, y = ~y), mark_path())

shinyServer(function(input, output, session) {

  # A subset of mtcars
  dat2 <- reactive({ dat[dat$x <= input$z,] })
  
  r_gv <- reactive({
     g1 + mark_area(data=dat2, props(x = ~x, y = ~y, y2 := 410L))
  })
  
  # Set up observers for the spec and the data
  observe_ggvis(r_gv, "plot1", session)
  
  # User interface elements (in the sidebar)
  output$ggvis_ui <- renderControls(r_gv, session)
  
  output$prob <- renderPrint({
    pnorm(input$z)
  })
})

ui.R

shinyUI(bootstrapPage(  
  
  mainPanel(
    ggvis_output("plot1"),
    textOutput("prob")
  ),
  
  sidebarBottomPanel(
    sliderInput("z", "z-score", min = -4, max = 4, value = 0, step = 0.1)
  )
))