r - R と既存の JSON キーを使用して Google シートにログインするにはどうすればよいですか?

Question

csv ファイルを Google ドライブ/シートにアップロードしようとしています。

作業コード: ウィンドウのポップアップ、Google アカウントにログインすると、コードが完全に機能し、ファイルがアップロードされます。

library(googledrive)
library(googlesheets4)

dff <- drive_upload('dff.csv', type = "spreadsheet")
drive_browse(dff)

このステップは避けたい。そこで、Googlesheets API にアクセスし、そのウィンドウから所有者のアクセス許可を持つサービス アカウントを作成しました。

library(googledrive)
library(googlesheets4)
sheets_auth(scope = "https://www.googleapis.com/auth/drive",
            path  = 'myjson.json')

drive_auth(token = sheets_token())
dff <- drive_upload('dff.csv', type = "spreadsheet")
drive_browse(dff)

そして、これは機能しません。さらに、drive_browse(dff)は、ファイルにアクセスできないというメッセージが表示されたブラウザ ウィンドウを開きます。

どうすればこれを解決できますか? 多分他のオプションがありますか？理想的には、Google にログインせずにこのスクリプトを実行する必要があります。