次の R スクリプトがあるとします。ここでcatは、実行されていることに関するフィードバックをユーザーに提供し、実行されてSys.sleepいる実際の計算を表します。
cat("Doing something\n")
Sys.sleep(1)
cat("Doing something else\n")
Sys.sleep(1)
cat("Finalizing\n")
setTxtProgressBar(pb, 3/3)
これらの呼び出しに進行状況バーを挿入したいと思いcatます (しゃれは意図されていません) ので、ユーザーはスクリプトのどこまで進んでいるかがわかります。これは私がこれまでに思いついたものです：
pb <- txtProgressBar(style = 3)
cat("\nDoing something\n")
Sys.sleep(1)
setTxtProgressBar(pb, 1/3)
cat("\nDoing something else\n")
Sys.sleep(1)
setTxtProgressBar(pb, 2/3)
cat("\nFinalizing\n")
setTxtProgressBar(pb, 3/3)
これに関する問題は、プログレス バーの更新 ( 1/3、2/3、3/3) を手動で設定する必要があることです。これは、特に長いスクリプトでは面倒で面倒です。私の考えは、これらの分数を として設定することですcurrentScriptLine/totalScriptLinesが、これらのパラメーターを設定する方法がわかりません。私が調査したところ、R には、現在実行中のスクリプトから現在の行数または合計行数を返す関数がありません。それともありますか？スクリプトのどこまで進んでいるかについてユーザーにフィードバックを与えるというこの問題に、他にどのように取り組むことができるでしょうか?