使用Shiny制作表格使用Shiny制作表格

表格是工作和生活中常见的数据呈现方式，例如公司的很多报表就需要用到表格。当我们展示数据的时候，用户当然不希望只看到一个静态的页面，所以就需要一些简单的交互功能：排序、查找、筛选等等。
基础的需求并不难实现，但当我们使用其他网页技术做这件事情的时候，既要做前端，也要做后端，代码量也不会少。对技术小白来说，使用 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制作表格】最后只要把代码打包上传部署好 Shiny Server 的服务器就可以访问了 :)