r - 在 Shiny 的应用程序中嵌入 Google 分析跟踪代码

Question

我一直在使用谷歌分析来跟踪一个 Shiny 的网络应用程序上的事件，使用我的 ui.R 顶部的以下内容:

shinyUI(fluidPage(
    tags$head(HTML(
        "<script>
        (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',
        '//www.google-analytics.com/analytics.js','ga');

        ga('create', 'XXXXXXX', 'auto');
        ga('send', 'pageview');

        </script>"
      )),
...
)

然而，我最近注册了一个新应用，我从谷歌分析得到的跟踪代码是:

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

  gtag('config', 'XXXXX');
</script>

按照 RStudio's 指令，我将其保存为 google-analytics.js 并代替 tags$head(HTML("...")) 我有:

includeScript("google-analytics.js")

但是，这不起作用。上面链接中的说明说:

Warning: the includeScript function places the content of the script inside a pair of script tags . If you copy and paste Javascript code into a .js file be sure to remove these tags

我已经尝试删除 <script> 和 </script> 以及围绕 async src="https://www.googletagmanager.com/gtag/js?id=XXXXX" 的html标签，但都不起作用。

任何人都可以阐明如何使其正常工作吗？

Answer 1

基于 Douglas Watson 的这个 article，你所要做的就是:

将分析 HTML 片段复制到文本文件中。 (创建了一个名为 google_analytics.R 的文件，在与 ui.R 相同的目录中)

将其包含在 ui.R 中
shinyUI(fluidPage(
tags$head(includeHTML(("google-analytics.html"))),
...