表格是工作和生活中常见的数据呈现方式，例如公司的很多报表就需要用到表格。当我们展示数据的时候，用户当然不希望只看到一个静态的页面，所以就需要一些简单的交互功能：排序、查找、筛选等等。
基础的需求并不难实现，但当我们使用其他网页技术做这件事情的时候，既要做前端，也要做后端，代码量也不会少。对技术小白来说，使用 R Shiny 做这样的事情就很容易了。
Shiny 是 R 社区里面一个非常出名的包，用来制作各类交互式网络应用，我们熟知的谢益辉就是其中的一位作者。
先睹为快看看 Shiny 能做出什么样的效果：
可以看出来， Shiny 简直天生就是为了交互而存在的。
Shiny 也提供了非常丰富的 widgets ，几乎覆盖了我们对 UI 的全部需求:
DT 也是谢老大写的包，是 JavaScript DataTables 库的R接口，R的数据对象可以直接通过 DT 呈现为HTML的表格。不仅如此， DT 本身还自动支持筛选、分页、排序等功能，非常的强大。
一言以蔽之， Shiny + DT 是交互式呈现表格的非常好的一个方案。
下面以我最近做的一个表格为例，最终效果是这样的：
数据来源于这里，爬下来就行。
首先把爬下来的数据打包成一个数据框：
myData<-data.frame(...)
记得load一下两个要用到的包：
library(shiny)
library(DT)
UI端的代码：
shinyUI(
fluidPage(
titlePanel("0~3岁婴儿/父母-婴幼儿启蒙教育"),
downloadButton('downloadData', 'Download'),
fluidRow(
DT::dataTableOutput("table")
)
)
)
Server端的代码：
shinyServer(function(input, output) {
output$table <- DT::renderDataTable(DT::datatable({
myData
}, rownames = FALSE))
output$downloadData <- downloadHandler(
filename = 'file.csv',
content = function(file) {
write.csv(table, file)
}
)
})
我们可以对任何一列数据进行排序，也可以筛选或查找任何内容，非常的方便。
最后只要把代码打包上传部署好 Shiny Server 的服务器就可以访问了 :)
