方法很简单,在百度统计的代码存放在一个js文件中,比如baidu_stat.js,
var _hmt = _hmt || [];
(function() {
var hm = document.createElement("script");
hm.src = "https://hm.baidu.com/hm.js?XXXXXXXXXXXXXXXXX";
var s = document.getElementsByTagName("script")[0];
s.parentNode.insertBefore(hm, s);
})();
把js文件放在App同一个目录,然后在ui构造的过程中,include这个文件:
ui <- fluidPage(
...
# Add baidu tongji.
includeScript("./baidu_stat.js")
}
这样Shiny生成的页面就包含百度统计的代码了。