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