## Not run:
# shinygaGetSegments = function(token, start=1, max=1000) {
# url <- paste('https://www.googleapis.com/analytics/v3/management/segments',
# '?access_token=', token,
# '&start-index=', start,
# '&max-results=', max,
# sep='', collapse='')
#
# return(processManagementData(url,
# c('id', 'segmentId', 'name', 'definition', 'created', 'updated')))
# }
# ## End(Not run)
Run the code above in your browser using DataLab