Create Semantic UI Menu
This creates a menu using Semantic UI.
menu(..., class = "")
... |
Menu items to be created. Use menu_item function to create new menu item. Use dropdown_menu(is_menu_item = TRUE, ...) function to create new dropdown menu item. Use menu_header and menu_divider functions to customize menu format. |
class |
Class extension.Look at https://semantic-ui.com/collections/menu.html for all possibilities. |
## Only run examples in interactive R sessions if (interactive()) { library(shiny) library(shiny.semantic) ui <- function() { shinyUI( semanticPage( title = "My page", menu(menu_item("Menu"), dropdown_menu( "Action", menu( menu_header(icon("file"), "File", is_item = FALSE), menu_item(icon("wrench"), "Open"), menu_item(icon("upload"), "Upload"), menu_item(icon("remove"), "Upload"), menu_divider(), menu_header(icon("user"), "User", is_item = FALSE), menu_item(icon("add user"), "Add"), menu_item(icon("remove user"), "Remove")), class = "", name = "unique_name", is_menu_item = TRUE), menu_item(icon("user"), "Profile", href = "#index", item_feature = "active"), menu_item("Projects", href = "#projects"), menu_item(icon("users"), "Team"), menu(menu_item(icon("add icon"), "New tab"), class = "right")) ) ) } server <- shinyServer(function(input, output) {}) shinyApp(ui = ui(), server = server) }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.