这是我近期见到最好的 shiny app，说是企业级产品也不为过，同楼上建议投稿主站。
简单评价下：对各类 widget 的运用和定制恰到好处，既让人眼前一亮又没有 surprise，元素的布局和配色也下了功夫。对依赖的引入比较谨慎，加载性能也优化得不错。
DT::datatable() 有个参数 style = "bootstrap" 或许能让表格看起来美观一些，不过这会引入额外的 CSS 依赖。
介绍一下自己开发的的一个COVID-19的dashboard
@InfinityLoop 强烈建议投稿主站，统计之都微信公众号目前约6万粉丝，可以让更多人学习到这么漂亮的作品，主站的投稿是以 Github PR 的方式，就是一个 md 文件，非常便捷。期待ing!
2 个月 后
InfinityLoop
还
以使用Appsilon，添加更佳视觉效果和方便使用
ryo 确实很酷炫，就是不知道如何获取源代码，然后换成自己的数据体验下。
chuxinyuan 所有源码包括数据都在Github上 https://github.com/swsoyee/2019-ncov-japan
因为经过的高度定制化的，所以通用性比较低，很难更换数据源（其劳力还不如重新开发一个新的了）。
1 个月 后
超级炫酷！！！
有个问题想请教一下，为什么进入首页时，首页的的四项总指标（shinydashboard::valueBox()）中的数字会有迅速滚拨加载的动作呢？秘密在哪呢？
AlphaDo 秘密在这里
https://github.com/JohnCoene/countup
其实R+htmlwidgets理论上可以把大多数JavaScript写的效果或者插件进行移植的，如果有兴趣也可以自己整几个小包出来，做这种小项目开发还挺有趣的
被主站投稿安利过来的，做得非常棒！
InfinityLoop wow，又get到一个有趣的小插件！感谢呀，受教了，我会试着多多拓展的~
3 个月 后
支持支持，想起了以前用Echarts做可视化的毕设时光
fangzq
2019年认识了echarts4r，比2017年认识のhighcharts互动快，至于plotly和rbokeh就不像以前那么容易使用。
https://echarts4r.john-coene.com
7 天 后
InfinityLoop
大赞！ 能否引入你的数据，作为论文分析？
benhaha 完全可以，不过可能后续会发文章（仅仅是可能），如果真的发了的话能注明引用就好了（如果没发的话请随意引个 GitHub 来源就好 w
话说看到个新闻说日本新冠数据是政府手动收集各个都道府数据加出来的，是真的吗……
tctcab 正如新闻所言(只能说到这了……)
InfinityLoop 多谢指教。 作者不易，大赞！