Google ColabでRを使いDriveにアクセスする

access_drive_on_colab_withR.R

# 必要なパッケージのインストール
install.packages("tidyverse")
install.packages("googledrive")
install.packages("R.utils")

# パッケージの読み込み
library(tidyverse)
library(googledrive)

# 非対話モードでのGoogle Drive認証
# https://towardsdatascience.com/how-to-use-r-in-google-colab-b6e02d736497
suppressMessages(library("R.utils")) # 冗長なメッセージが表示されるので抑制
library("httr")
my_check <- function() {return(TRUE)}
  reassignInPackage("is_interactive", pkgName = "httr", my_check) 
  options(rlang_interactive=TRUE)

drive_auth(use_oob = TRUE, cache = FALSE)

# ドライブの確認
drive_ls("YOUR FOLDER")

# ファイルのダウンロード
file <- drive_get("YOUR PATH")
drive_download(file, overwrite = TRUE)

# ダウンロード結果の確認
dir()

# ファイルの読み込み
df <- read_csv("YOUR FILE NAME")
head(df)