无法通过googleAnalyticsR导出超过1000行

install.packages("googleAnalyticsR")
library(googleAnalyticsR)

ga_auth()

view_id <- "YOUR_VIEW_ID"
date_range <- c("2023-01-01", "2023-01-31")
dimensions <- c("date", "pagePath")
metrics <- c("pageviews", "sessions")

library(dplyr)

# 初始化变量
all_data <- data.frame()
page_token <- NULL
max_rows <- 1000

repeat {
  # 获取数据
  ga_data <- google_analytics(
    viewId = view_id,
    date_range = date_range,
    dimensions = dimensions,
    metrics = metrics,
    max = max_rows,
    page_token = page_token
  )
  
  # 合并数据
  all_data <- bind_rows(all_data, ga_data)
  
  # 检查是否有下一页
  if (nrow(ga_data) < max_rows) {
    break
  }
  
  # 更新 page_token
  page_token <- ga_data$nextPageToken
}

# 查看结果
print(all_data)