yihui

#!/usr/bin/env ruby

# under Ubuntu, you should install ruby1.9.1 or higher (default 1.8 does not work)
require 'json'
require 'net/https'
require 'pathname'



# Extensions

yihui

xy = matrix(0.5, 1, 2)
shinyServer(function(input, output) {
  output$myplot = renderPlot({
    hover = input$myplot_hover
    if (!is.null(hover))
      xy <<- rbind(xy, c(hover$x, hover$y))
    par(mar = rep(0, 4))
    plot.new()
    points(xy, pch = rep(c(21, 19), c(nrow(xy) - 1, 1)))
    box()