サイドバーを設定する
サイドバーは、レストランのメニューや受講可能なコース一覧のようなものと考えられます。
サイドバーには、sidebarMenu() を使ってメニューを追加できます。さらに、その中で menuItem() を使って複数のボタンを作成し、ダッシュボード内の異なるページへ移動できるようにします。前の章で見た通常の入力や出力も、サイドバーに追加できます。サッカーデータを紹介するダッシュボードのサイドバーには、どのようなオブジェクトがあると便利でしょうか？
この演習では、これらのオブジェクトのいくつかをダッシュボードのサイドバーに追加する練習をします。
shiny と shinydashboard パッケージはすでに読み込まれています。さらに、ダッシュボードのヘッダーは header として保存済みです。
この演習はコースの一部です
shinydashboard で作るダッシュボード
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
sidebar <- dashboardSidebar(
# Set up a sidebar menu with width 400
___(
width = ___,
id = "pages",
# Add a tab button called "Match details"
___(___, tabName = "matches", icon = ___,
badgeLabel = "New content!", badgeColor = ___)
)
)
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)