Javascript 闪亮仪表板应用程序的谷歌分析

我有一个在服务器上运行的分类良好的R shiny（shinydashboard）应用程序。我希望能够跟踪它的使用情况，并知道谷歌分析是一个很好的解决方案。但是我遇到了一个设置它的问题

我试着按照这里描述的说明去做

他们建议创建一个google-analytics.js脚本，其中包含来自google的全局站点标签：

<!-- Global Site Tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-4XXXXX5-2">
</script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());

gtag('config', 'UA-4XXXXX5-2');
</script>

然而，因为我使用的是闪亮的仪表板，所以我闪亮的布局是不同的

#ui.r
library(shiny)
library(shinydashboard)

dashboardPage(

  dashboardHeader(title = "Single Cell Database"),

  dashboardSidebar(
    sidebarMenu(
      menuItem("P15 Clustering", tabName = "P15_Cluster", icon = icon("th")),
      menuItem("P15 Violin Plots", tabName = "P15_Violin", icon = icon("th"))
    )),

  dashboardBody(
    tabItems(
      tabItem(tabName = "P15_Cluster",

我似乎想不出在哪里放置

tags$head(includeScript("google-analytics.js")),

。。。以闪亮的仪表板格式。此外，由于谷歌的代码格式不再与示例匹配，我对脚本函数的新格式没有信心

---

对于如何在闪亮的仪表板标题中调用“google analytics.js”脚本，或者如何格式化“google analytics.js”文件中的代码，我们将不胜感激

我和你有同样的问题。我可以解决这个问题，它的工作后，按照教程在

第一步：您可以在google-analytics.js文件中使用以下代码：

(function(i,s,o,g,r,a,m){
  i['GoogleAnalyticsObject']=r;
  i[r]=i[r] || 
  function(){
    (i[r].q=i[r].q||[]).push(arguments);
  },i[r].l=1*new Date();
  a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];
  a.async=1;
  a.src=g;
  m.parentNode.insertBefore(a,m);
})(window,document,'script',
   'https://www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-4XXXXX5-2', 'auto');
ga('send', 'pageview');

$(document).on('change', 'select', function(e) {
    ga('send', 'event', 'widget', 'select data', $(e.currentTarget).val());
});

$(document).on('click', 'button', function() {
  ga('send', 'event', 'button', 'plot data');
});

第二，您可以在“dashboardBody”中调用文件“GoogleAnalytics.js”。例如下面的语法：

dashboardBody(
    tags$head(includeScript("google-analytics.js")),
    tabItems(
      tabItem(tabName = "P15_Cluster",

---

在我的例子中，仅仅使用Rstudio脚本而不是GA脚本就可以让报告正常工作

dashboardBody(
    tags$head(includeScript("google-analytics.js")),
    tabItems(
      tabItem(tabName = "P15_Cluster",