使用Shiny包构建R web统计的例子