【R】googledrive

1. はじめに

googledriveは、その名の通り、Google Drive にアクセスしてファイルを取り出したり書き込んだりしてくれるパッケージです。これができると大変助かる！

2. インストール

CRANからインストールできます。

install.packages("googledrive")

3. つかってみる

関数は、基本的にdrive_というプレフィックスがついています。パイプ・フレンドリーな処理ができます。

ドライブ内のファイルを30個リストアップします。初めて使用するときには、authenticationが必要になります。必要であれば追加のパッケージがインストールされ、ブラウザが起動して認証を実施する必要があります。

drive_find(n_max = 30)

> drive_find(n_max = 30)
# A dribble: 30 x 3
   name               id                                drive_resource   
   <chr>              <drv_id>                          <list>           
 1 yolov5_trai1n.ipynb 1alxZau6s0SmCY3v1wrYb7eYqN_zi68JB <named list [42]>
 2 Colab Notebooks     1GD2r-0sqvUMT9XL3SQx9zO-GbyAb7is9 <named list [33]>
 3 yolo_train2         1qIcS4Qx0cIGMsplwcuso0Br39FcK1YvF <named list [34]>
 4 car1                1twrY4PdsspcHdRg9umsfBXSOeqacF-Iv <named list [34]>
 5 yolov5q             1-2VRcMaHQ0B6JUPHJvrIMCnyOLh93ViC <named list [34]>
 6 classe2s.txt        1FNfqN0SSELU9jAg92CqLnFQtnygOU0qL <named list [41]>
 7 datda.yaml          1YbEm4tf-azvYPXspua6elgYT6_AsX8Fe <named list [40]>
 8 imagwes             1ynxCUjJo0DbdM2weJBVjngJa3oCqC1uC <named list [34]>
 9 labelqs             18HJ2SDSWZoSDGZVq7KfyAapBTa8qf41I <named list [34]>
10 dataw.yaml          1ktY8xkNBM-qkbELsi4wGasou5dQkT0iU <named list [40]>
# ... with 20 more rows

すごい、これはいい！

ファイルのアップロードもできます。

chicken_sheet <- drive_example_local("chicken.csv") %>% 
  drive_upload(
    name = "index-chicken-sheet",
    type = "spreadsheet"
  )

Local file:
* C:/Users/Dinov/Documents/R/win-library/4.1/googledrive/extdata/example_files/chicken.csv
Uploaded into Drive file:
* index-chicken-sheet <id:<U+00A0>183UwbyGMkHPandpKJaqlLiO2olYNago3Ify07kavkGY>
With MIME type:
* application/vnd.google-apps.spreadsheet

4. さいごに

これって最強では！？