r - R Shinydashboard: データの読み込み中にプログレス バーを表示する (fread)

Question

ロードに時間がかかる大きなデータベースを使用して、Rshinydashboard を作成しています。読み込んだデータ量の情報を表示するプログレスバーを作成することはできますか? (例: "Z 行の X% を読み取る")?

Answer 1

初期ロードが完了するまで、R はデータの行数を知ることができません (私が思うに)。ただし、組み込みの Shiny プログレス バーを使用して、データが読み込まれていることをユーザーに知らせることができます。

x<-list.files()

data<-data.frame()

withProgress(message = 'Reading Data!', value = 0, {

    for(i in 1:length(x)){
        incProgress(1/length(x), detail = paste("File #", i))
        hold<-read.csv(x[i])
        data<-rbind(data,hold)
    }
})

read.csv()を、使用しているコマンド (つまり) に置き換えるだけで、fread("dt.csv", sep=";",header=T, stringsAsFactors=FALSE)データをロードできます。ループ内の進行状況バーに通知するために、意図的に複数の大きなクエリを実行することもできます。1 つのファイルだけをロードしている場合は、メッセージをより適切なものに変更します (ループは 1 サイクルしか実行しません)。