始める無料で始める

複数の入力を挿入する

入力は1つだけではありません。平均睡眠時間に加えて、特定の年もユーザーに選んでもらいたいとします。

そのために、ui では、関心のある年を値とする別の sliderInput() を挿入できます。

この演習では、shiny ライブラリはすでに読み込まれています。

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

shinydashboard で作るダッシュボード

コースを見る

演習の手順

  • shinyApp の2つ目の入力として別の sliderInput() を追加し、ラベルを "yearlabel" にします。
  • 数値範囲を 2003 から 2017 に設定します。

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

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

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  sliderInput("sliderlabel",
              "Average hours of sleep",
              min = 7.5, max = 11,
              value = 8, step = 0.5),
  # Add another sliderInput and label the input as "yearlabel"
  ___(___,
               "Year",
            # Set the number range to be between 2003 and 2017
               ___, ___,
               value = 2004, step = 1, sep = ""))
server <- function(input, output, session) {
}
shinyApp(ui, server)
コードを編集して実行