inst/examples/basic/ui.R

In mslegrand/shinyDMDMenu: Multi-level Menu for Shiny

# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#

library(shiny)
library(shinyDMDMenu)

shinyUI(fluidPage(
  dmdMenuBarPage(
                       id='mytop',
                       menuItem("Appricot"),
                       menuItem("Bannana"),
                       menuItem("Cherry"),
                       menuDropdown(
                         "More Fruit",
                         id='fruit',
                         menuItem("oranges"),
                         menuItem("pears")
                       ),
                       menuDropdown(
                         "Great Men",
                         menuDropdown("China",
                            menuDropdown("Xian",
                              menuItem("First Emperor")
                            ),
                            menuDropdown("Hongkong",
                              menuItem("Bruce Lee")
                            )
                         ),
                         menuDropdown("UnitedStates",
                              menuDropdown("Califoria",
                                menuItem("Howard Hughes"),
                                menuItem("Grateful Dead"),
                                menuItem("Mickey Mouse")
                              ),
                              menuDropdown("Illinois",
                                menuItem("Abe Lincoln"),
                                menuItem("Al Capone"),
                                menuItem("Obama")
                              )
                         ),
                         menuDropdown(
                           "United Kingdom",
                           menuItem("Ireland"),
                           menuItem("Scotland"),
                           menuDropdown("England",
                                        menuItem("Shakespear"),
                                        menuItem("Sherlock Holmes"),
                                        menuItem("Dr. Who")
                           ),
                           menuItem("Wales")
                         )
                       )#,selectInput("sel","select",choices=letters)
  ),

  wellPanel( style="margin-top:50px",
        verbatimTextOutput("menuChoice"),
        radioButtons("bannanaDisable","Bannana", choices=c("enable","disable"),inline = TRUE),
        radioButtons("usDisable","UnitedStates", choices=c("enable","disable"),inline=TRUE),
        radioButtons("shakespearDisable","Shakespear", choices=c("enable","disable"),inline=TRUE),
        radioButtons("firstfruit","FirstFruit", choices=c('Apple','Appricot'), inline=TRUE),
        radioButtons("otherfruit","Fruits", choices=c('Other Fruit','More Fruit'), inline=TRUE)
  )
))