Create a GAv4 Segment Builder
Shiny Module for use with segmentBuilder
segmentBuilderUI(id)
id |
Shiny id |
Shiny UI for use in app
## Not run:
library(shiny)
library(googleAnalyticsR)
ui <- shinyUI(fluidPage(
segmentBuilderUI("test1")
))
server <- shinyServer(function(input, output, session) {
segment <- callModule(segmentBuilder, "test1")
.. use segment() in further gav4 calls.
})
# Run the application
shinyApp(ui = ui, server = server)
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.