始める無料で始める

インタラクション付きのtextOutput

あなたはアメリカの睡眠クリニックで働いているとします。アメリカ人の睡眠衛生を把握するために調査を実施しました。データが集まったので、結果を報告したいと考えています。

静的なレポートを提出する代わりに、インタラクティブなアプリにすれば、読み手の関心をより引けそうです。

まずはユーザー体験の一環として、ユーザーに居住都市を入力してもらいたいとします。ユーザーが入力した内容に応じてテキスト出力が更新されるようにしましょう。

そのために、textInput() 関数を使います。

この演習はコースの一部です

shinydashboard で作るダッシュボード

コースを見る

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  # Add textInput and label it as "city label"
  ___(___,
            "Which city do you live in?",
            # Leave the value blank and set the placeholder as "Singapore"
            value = ___, placeholder = ___))

server <- function(input, output) {
}

shinyApp(ui, server)
コードを編集して実行