[Shiny 30本ノック] 4. Navigation barの操作

ui.R

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")))

                   )

)

server.R

 

library(shiny)

# Define server logic required to draw a histogram

shinyServer(function(input, output){})