## Not run:
# chartData <- reactive({
# validate(
# need(ShinyMakeGAProfileTable(), "Need Profiles"),
# need(input$menuSeg != "", "Need Segment"),
# need(input$metric_choice != "", "Need Metric"),
# need(datePeriod(), "Need Dates")
# )
#
# data <- ShinyMakeGAProfileTable()
#
# token <- AccessToken()
# start <- input$range_date[1]
# end <- input$range_date[2]
# segment_choice <- as.character(input$menuSeg)
# gaid <- as.character(input$view)
# metric_choice <- as.character(input$metric_choice)
#
# profileRow <- df[df$id == gaid,]
# d_dates <- as.character(datePeriod())
#
# data <- rollupGA(GAProfileTable = profileRow,
# sort = d_dates,
# max_results = -1,
# dimensions = d_dates,
# start_date = start,
# start_index = 1,
# metrics = paste0('ga:',metric_choice),
# filters = '',
# segment = segment_choice,
# end_date = end,
# walk = FALSE,
# ga = token)
#
# data
#
# })
# ## End(Not run)
Run the code above in your browser using DataLab