hell shiny

Hello Shiny是个简单的应用程序， 这个程序可以生成正态分布的随机数，随机数个数可以由用户定义，并且绘制这些随机数的直方图. 要运行这个例子，只需键入：

library(shiny)
runExample("01_hello")

Shiny应用程序分为两个部分：用户界面定义和服务端脚本。这两部分的源代码将在下面列出。

用户界面是在源文件ui.R中定义的：

library(shiny)

# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(

  # Application title
  headerPanel("Hello Shiny!"),

  # Sidebar with a slider input for number of observations
  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 0, 
                max = 1000, 
                value = 500)
  ),

  # Show a plot of the generated distribution
  mainPanel(
    plotOutput("distPlot")
  )
))

server.R

library(shiny)

# Define server logic required to generate and plot a random distribution
shinyServer(function(input, output) {

  # Expression that generates a plot of the distribution. The expression
  # is wrapped in a call to renderPlot to indicate that:
  #
  #  1) It is "reactive" and therefore should be automatically 
  #     re-executed when inputs change
  #  2) Its output type is a plot 
  #
  output$distPlot <- renderPlot({

    # generate an rnorm distribution and plot it
    dist <- rnorm(input$obs)
    hist(dist)
  })
})

参考资料

http://yanping.me/shiny-tutorial/#hello-shiny