shinyで待ち時間にメッセージを表示する
withProgressが手っ取り早い。
messageにメッセージを指定して、その後に待ち時間が発生する処理をブロックで指定する。
renderText({ withProgress(message = '計算中', { input$hoge }) })
参照クラスのProgressを用いるという方法もあるらしい。
http://shiny.rstudio.com/reference/shiny/latest/withProgress.html