Nothing
rym_get_uploadings_expense <-
function(counter,
login = getOption("rym.user"),
token.path = getOption("rym.token_path")) {
# auth
ym_token <- rym_auth(login = login, token.path = token.path)$access_token
result <- data.frame()
limit <- 10000
offset <- 0
result <- list()
while (TRUE) {
answer <- GET(str_glue("https://api-metrika.yandex.net/management/v1/counter/{counter}/expense/uploadings"),
query = list(
limit = limit,
offset = offset
),
add_headers(Authorization = paste0("OAuth ", ym_token))
)
stop_for_status(answer)
raw_data <- content(answer, as = "parsed")
# stop if empty
if (length(raw_data$uploadings) == 0) break
result <- append(result, raw_data$uploadings)
offset <- offset + limit
}
# parse result
result <- map_df(result, flatten)
return(result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.