# NOT RUN {
my_project <- bwr_projects_get()$id[1]
my_query <- bwr_query_get(project_id = my_project)$id[1]
my_mentions_chart <- bwr_mentions_chart(project_id = my_project,
query_id = my_query,
date_range = c('2018-01-01', '2018-02-01'),
aggregate = "month",
dimension1 = "sentiment",
dimension2 = "volume")
# }
Run the code above in your browser using DataLab