library(shiny) shinyUI(navbarPage("title", # Navigation barのタイトル tabPanel("subtitle1", h1("1つめのページ")), # Navigation panel1のタイトル、さらにそのページのタイトル navbarMenu("subtutile2", # Drop down menu tabPanel("subtitle1", h1("ドロップ1")), tabPanel("subtitle2", h1("ドロップ2"))), header = h2("header test"), # header footer = h3("footer test") # footer )