r中的twitter广告api

我有以下资料:

App Name API_Key API_Secret Access_Token Access_Secret Account ID

我只想在twitter广告中获得一个账号下所有活动的每日绩效指标。

library(twitteR)
library(ROAuth)
library(RCurl)
library(parsedate)
library(BBmisc)
library(httr)

appname <- “xxxxx”
api_key <- “xxxxxxx”
api_secret <- “xxxxxxxx”
access_token <- “xxxxxxx”
access_secret <- “xxxxxx”
account_id <- “xxxxxxx”

setup_twitter_oauth(api_key,api_secret, access_token, access_secret)

reach_campaign.request <- 
GET(“https://ads-api.twitter.com/1/stats/accounts/xxxxxxx/reach/campaigns?start_time=2018-06-10T00:00:00+01:00Z&campaign_ids=xxxxx&end_time=2018-06-15T00:00:00+01:00Z 7”,
query = list(granularity = “DAY”,
metric_groups = “ENGAGEMENT”,
placement = “ALL_ON_TWITTER”),
accept_json(),
config(token = access_secret))

有谁知道如何简单地获得结果的帐户ID作为一个整体的一天?

这是我的尝试,但我犯了403个错误:

path <- paste("https://ads-api.twitter.com/1/stats/accounts/", account_id, sep="")
getinfo <- GET(path)
newContent <- jsonlite::fromJSON(toJSON(content(getinfo)))