Иногда бывает нужно собрать статистику сразу по нескольким аккаунтам Яндекс Директа. Собирать отдельно — не наш путь. Для выгрузки по всем нужным аккаунтам, воспользуемся таким скриптом:

library(ryandexdirect)
library(tidyverse)
library(writexl)

tokens <- "АДРЕС_ПАПКИ_С_ТОКЕНАМИ"

logins = c(
  "АККАУНТ_1", 
  "АККАУНТ_2", 
  "АККАУНТ_3",
  "АККАУНТ_4",
  "АККАУНТ_5"
)

result <-
  map_df(
    logins, 
    ~
      { yadirGetReport(
        DateRangeType = "LAST_7_DAYS",
        Login = .x,
        FieldNames = c("Clicks","Cost"), 
        IncludeVAT = "YES",
        TokenPath = tokens) %>%  
          mutate(login = .x) }
  )

write_xlsx(result, "result.xlsx")

Здесь мы воспользовались функцией map_df из пакета purrr (входит в tidyverse), чтобы избежать циклов. Готовый результат записали в эксельку.