## 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)
Run the code above in your browser using DataLab