shinyで待ち時間にメッセージを表示する

withProgressが手っ取り早い。
messageにメッセージを指定して、その後に待ち時間が発生する処理をブロックで指定する。

renderText({
  withProgress(message = '計算中', {
    input$hoge
    })
})

参照クラスのProgressを用いるという方法もあるらしい。
http://shiny.rstudio.com/reference/shiny/latest/withProgress.html