googleAnalyticsR 403ユーザー権限

Question

私は50個のGAアカウントを通じてcycilingと私は取得していますエラーへのアクセスを持っていないユーザー権限を持つ1があること...

エラーでいます：APIは返さ：ユーザーが持っていませんこのプロファイルに対する十分な権限 error_check（out）のエラー： APIが返されました：このプロファイルには十分な権限がありません。

私はRの新機能ですが、このアカウントをスキップしてメソッドを続行するtrycatchメソッドを記述できるかどうかは疑問です。プロセスはTeequestステータスコードで停止した瞬間に：403/

library(googleAnalyticsR) 
library(tidyverse) 

#settings 
start_date <- as.character(Sys.Date()-31) 
end_date <- as.character(Sys.Date()-1) 
metrics <- c("sessions", "pageviews") 
dimensions <- "year" 

#Authorize Google Analytics R- this will open a webpage 
#You must be logged into your Google Analytics account on your web browser 
ga_auth() 

account_summary <- ga_account_list() 


#Add the start and end date to the date frame, as well as some columns to use to populate the metrics 
account_summary$start_date <- start_date 
account_summary$end_date <- end_date 


# cycle through the list of views, pull the data, and add it to the 
#account_summary 

for (i in 1:nrow(account_summary)){ 

    view_id <- account_summary$viewId[i] 

    ga_data <- google_analytics_4(viewId = view_id, 
           date_range = c(start_date,end_date), 
           metrics = metrics, 
           dimensions = dimensions) 

    # This query might return multiple rows (if it spans a year boundary), so 
    #collapse and clean up 

    ga_data <- summarise(ga_data, 
         sessions = sum(sessions), 
         pageviews = sum(pageviews)) 

    #add the totals to the account summary 

    account_summary$sessions[i] <- ga_data$sessions 
    account_summary$pageviews[i] <- ga_data$pageviews 

} 

# Make a more compact set of data 

clean_summary <- select(account_summary, 
         Account = accountName, 
         Property + webPropertyName, 
         View = viewName, 
         Type = type, 
         Level = level, 
         'Start Date' = start_date, 
         'End Date' = end_date, 
         Sessions = sessions, 
         Pageviews = pageviews) 

write.csv (clean_summary, "summary_results.csv", row.names = FALSE) 

Answer 1

あなたはこのようtryCatchを使用することができます。

... 

ga_data <- tryCatch(google_analytics_4(viewId = view_id, 
          date_range = c(start_date,end_date), 
          metrics = metrics, 
          dimensions = dimensions), 
        error = function(ex){ 
        warning(ex) 
        NULL 
         }) 

... 

例ではなく、警告にエラーが変わり、NULL

を返します。