r - R パスワードで保護された Excel ワークブックを保存する

Question

これまで答えが見つからなかったので、少し感銘を受けました。

1 つのソースからデータを読み込み、そこから数十の Excel ファイルを書き込む小さな R スクリプトがあります。問題は次のとおりです。これらのファイルにはパスワード保護が必要です。

現在、私のスクリプトはXLConnectライブラリを使用して Excel ファイルを保存しています。スクリプトは次のようなものです。

# Load data from source
source = <connection string to source>
dataFromSource = <read from source>

# Process
for (data in dataFromSource) {
    wb = loadWorkbook( paste("myWorkbook", sourceName, ".xlsx"), create = TRUE)
    createSheet(wb, name = "sheet")
    <put data into the "sheet">
    saveWorkbook(wb)
}

簡単に言うと、R でパスワード保護された Excel ファイルを作成するにはどうすればよいでしょうか。