if (FALSE) {
api_token <- Sys.getenv('SERPSTAT_API_TOKEN')
project_id <- 12345
region_id <- sst_rt_project_regions(
api_token = api_token,
project_id = project_id
)$data$regions[[1]]$id
sst_rt_positions_history(
api_token = api_token,
project_id = project_id,
region_id = region_id,
date_from = '2020-12-01',
date_to = '2020-12-30',
keywords = c('seo', 'ppc', 'serpstat'),
url = 'serpstat.com',
sort = 'keyword',
order = 'desc',
page = 1,
size = 100,
return_method = 'list'
)
}
Run the code above in your browser using DataLab