首先安装Shiny包：
options(repos=c(RStudio='http://rstudio.org/_packages', getOption('repos')))
install.packages('shiny')
再写两个R代码文件：
一个是负责前端的ui.R，另一个是负责后端的server.R。
ui.R的代码如下：
library(shiny)
library(ggplot2)
dataset <- iris
shinyUI(pageWithSidebar(
headerPanel("鸢尾花的数据展示"),
sidebarPanel(
selectInput('x','X',names(dataset)),
selectInput('y','Y',names(dataset)[2]),
selectInput('color','Color',c('None',names(dataset))),
checkboxInput('smooth','Smooth')
),
mainPanel(
plotOutput('plot')
)
))
server.R的代码如下：
library(shiny)
library(ggplot2)
shinyServer(function(input, output){
output$plot <- reactivePlot(function(){
p <- ggplot(dataset, aes_string(x=input$x, y=input$y)) + geom_point()
if(input$color != 'None')
p <- p +
aes_string(color=input$color) +
theme(legend.position="top")
if(input$smooth)
p <- p +
geom_smooth() +
theme(legend.position="top")
print(p)
}, height=400)
})
将这两个代码文件存放到同一个文件夹下，例如我是放在在"d:/rspace/shinyapp"。
最后在控制台下运行：
library(shiny)
runApp("d:/rspace/shinyapp")
之后R会自动打开系统默认的浏览器，并展示出如下的界面。
Shiny包的缺点：
在部署分享方面，Shiny包只能在本地浏览器展示应用。如果要分享给其它人的话，需要将R代码传到网盘或打包分发，而对方也需要使用runApp命令来进行本地展示。RStudio团队正在开发Shiny服务器构架，让使用者仅需要一个浏览器和网址就可以运行网页应用。不过这将是一个收费的服务。
更多示例和帮助信息，请参看：http://www.rstudio.com/shiny/