Как выгружать историю запросов из Search Console

# Load packages.
# Load packages.
if(!("pacman" %in% installed.packages())) {install.packages("pacman")}
packages_load <- c('googleAuthR', 'dplyr')
pacman::p_load(packages_load, character.only = TRUE)
pacman::p_loaded()
packages_temp <- c('searchConsoleR')
packages_temp <- packages_temp[!packages_temp %in% pacman::p_library()]
if(length(packages_temp) > 0) pacman::p_install(packages_temp,
                                                character.only = TRUE)
rm(packages_load, packages_temp)
 
# Set a propety to fetch keywords data.
site            <- 'https://site.com/'
 
# Set a number of days for analysis. 
# The data will be fetched for a period 
# from (current date - (lookback_window + 3))
# to (current date - 3) 
# because of Google Search Console limits.
lookback_window <- 30*16
 
# Set a local directory where CSV file with keywords data will be exported.
export_path     <- 'C:/Users/User/SEO'
 
# Authenticate R in browser. 
# Authentication is asked with every run of this script.
# To use saved credentials comment new_user = TRUE
# in the code below.
searchConsoleR::scr_auth(
    new_user = TRUE
  )

site  <- 'https://наш сайт/'
lookback_window <- 30*16
export_path     <- 'C:/Users/User/.../Путь где мы сохраним наши данные'

# Use export_path to set a working directory.
# Use export_path to set a working directory.
setwd(export_path)
 
# Get keywords data from Google Search Console by day.
rez <- c((lookback_window + 3):3) %>%
  lapply(., function(x){
  date <- Sys.Date() - x
  print(date)
  searchConsoleR::search_analytics(siteURL = site,
                   startDate               = date,
                   endDate                 = date, 
                   searchType              = 'web', 
                   rowLimit                = 5000, 
                   aggregationType         = 'byPage', 
                   dimensions              = c('query', 'date')
  )
}) %>% 
  dplyr::bind_rows(.)
 
# Aggregate keywords data by query.
rez_aggr <- rez %>%
  group_by(query) %>%
  summarise(clicks      = sum(clicks),
            impressions = sum(impressions)) %>%
  ungroup(.) %>%
  arrange(-clicks)
 
# Calculate number of queries by day.
stats_by_date <- rez %>%
  group_by(date) %>%
  summarise(count = n())
 
# Download keywords data as CSV file in export_path directory.
write.csv(x         = rez, 
          file      = paste0('search_analytics_', Sys.Date(), '.csv'), 
          row.names = FALSE)
 
# Download aggregated keywords data as CSV file in export_path directory.
write.csv(x         = rez_aggr, 
          file      = paste0('search_analytics_aggr_', Sys.Date(), '.csv'), 
          row.names = FALSE)