library(shiny)
library(shiny.semantic)
library(shiny.router)

dashboard_page <- div(
  titlePanel("Dashboard"),
  p("This is a dashboard page")
)

profile_page <- div(
  titlePanel("Profile"),
  p("This is a profile page")
)

dashboard_callback <- function(input, output, session) {}
profile_callback <- function(input, output, session) {}

router <- make_router(
  route("/", dashboard_page, dashboard_callback),
  route("profile", profile_page, profile_callback)
)

ui <- semanticPage(
  menu(menu_item("Logo"),
       menu_item("Dashboard", href = route_link("/"), item_feature = "active item"),
       menu_item("Profile", href = route_link("profile")),
       class = "secondary pointing menu"
  ),
  router$ui
)

server <- function(input, output, session) {
  router$server(input, output, session)
}

shinyApp(ui, server)

render_menu_link <- function(location, title, active_location = "", icon = NULL) {
  class <- if (active_location == location) "active item" else "item"
  if (is.null(icon))
    icon_ui <- ""
  else
    icon_ui <- icon(icon)
  shiny::tags$a(class = class, href = location, icon_ui, title)
}