## Not run:
# authorize()
# first_date <- firstdate(profileId = "profile_id")
# ga_data <- get_ga("profile_id", start.date = first_date, end.date = "today",
# metrics = "ga:sessions", dimensions = "ga:source,ga:medium",
# sort = "-ga:sessions")
# ## End(Not run)
Run the code above in your browser using DataLab