[Shiny 30本ノック] 5. 各ページにHeader とfooterをつける

 library(shiny)

shinyUI(navbarPage("title",                          # Navigation barのタイトル

        tabPanel("subtitle1", h1("1つめのページ")),   # Navigation panel1のタイトル、さらにそのページのタイトル

        navbarMenu("subtutile2",                      # Drop down menu

                   tabPanel("subtitle1", h1("ドロップ１")),

                   tabPanel("subtitle2", h1("ドロップ2"))),

        header = h2("header test"), # header

        footer = h3("footer test") # footer

                   )