Javascript 具有R输入和Google分析的事件跟踪器

有人知道Google Analytics和R Shining跟踪事件的语法吗

我想跟踪用户在与我的应用程序交互时选择的输入。因此，在本例中，我想知道用户何时使用并更改“PointUseInput”复选框输入

我试着按照建议去做，但我对JavaScript不太熟悉，所以我不知道如何构造ga函数

# ################################################################################################
# ################################################################################################
# # Sec 1a. Needed Libaries & Input Files

library(shiny)
library(shinydashboard)
library(leaflet)
library(dplyr)

##The Data
Map_DF <- data.frame("Point_ID" = c("A1", "B1", "C3"), 
                     "Latitude" = c(38.05, 39.08, 40.05), 
                     "Longitude" = c(-107.00, -107.05, -108.00),
                     "PointUse" = c("farm", "house", "well"))


################################################################################################
################################################################################################
#UI
ui <- dashboardPage(
    
    dashboardHeader(), 
    
    dashboardSidebar(
        

       ### tags$head(includeHTML(("google-analytics.html"))),  #Google Analytics html tag here
        
        
        checkboxGroupInput(inputId = "PointUseInput", label = "Select Point Use", choices = Map_DF$PointUse, selected = Map_DF$PointUse)
    ), 
    
    dashboardBody(
        fluidRow(leafletOutput(outputId = 'mapA'))
    )
)

################################################################################################
################################################################################################
server <- function(input, output, session) {
    
    ## The Filter
    filterdf <- reactive({
        Map_DF %>% 
            filter(PointUse %in% input$PointUseInput)
    })
    
    ## Base Map Creation
    output$mapA <- renderLeaflet({
        
        leaflet() %>%
            addProviderTiles(
                providers$Esri.DeLorme,
                options = providerTileOptions(
                    updateWhenZooming = FALSE,
                    updateWhenIdle = TRUE)
            ) %>%
            setView(lng = -107.50, lat = 39.00, zoom = 7)
    })
    
    ## Update Map with Filter Selection
    observe({
        leafletProxy("mapA", session) %>% 
            clearMarkers() %>% 
            addCircleMarkers(
                data = filterdf(),
                radius = 10,
                color = "red",
                lat = ~Latitude,
                lng = ~Longitude,
                popupOptions(autoPan = FALSE),
                popup = ~paste("PointUse: ", filterdf()$PointUse))
    })
    
}

################################################################################################
################################################################################################
shinyApp(ui = ui, server = server)

---

在google analytics JavaScript代码中设置以下语法对我很有用：

gtag('event', <action>, {
  'event_category': <category>,
  'event_label': <label>,
  'value': <value>
});

尝试：

$（文档）.on（'change'，'select'，函数（e）{
gtag（“事件”、“行动”{
“事件类别”：“类别”，
“事件标签”：“标签”，
“价值”：
});
});

您也可以尝试：

 $('#selectInputId').on('change', function(e) {
    gtag('event', 'action', {
     'event_category': 'category',
     'event_label': 'label',
     'value': <value>
    });
  });

$（'selectInputId'）。在（'change'，函数（e）上{
gtag（“事件”、“行动”{
“事件类别”：“类别”，
“事件标签”：“标签”，
“价值”：
});
});

---

这是我在跟踪您链接到时所做的唯一更改。

在google analytics JavaScript代码中设置以下语法对我很有用：

gtag('event', <action>, {
  'event_category': <category>,
  'event_label': <label>,
  'value': <value>
});

尝试：

$（文档）.on（'change'，'select'，函数（e）{
gtag（“事件”、“行动”{
“事件类别”：“类别”，
“事件标签”：“标签”，
“价值”：
});
});

您也可以尝试：

 $('#selectInputId').on('change', function(e) {
    gtag('event', 'action', {
     'event_category': 'category',
     'event_label': 'label',
     'value': <value>
    });
  });

$（'selectInputId'）。在（'change'，函数（e）上{
gtag（“事件”、“行动”{
“事件类别”：“类别”，
“事件标签”：“标签”，
“价值”：
});
});

这是我在跟踪链接到的您时所做的唯一更改

 $('#selectInputId').on('change', function(e) {
    gtag('event', 'action', {
     'event_category': 'category',
     'event_label': 'label',
     'value': <value>
    });
  });