Custom navigation

nav.R

library(shiny)

ui <- navbarPage(
  "example",
  id = "tabs",
    header = list(
        tags$style("nav{display:none;}")
    ),
  tabPanel(
    "home",
    actionButton("switch", "Go to networks tab")
  ),
  tabPanel(
    "networks",
    h3("Hello!")
  )
)

server <- function(input, output, session){
  observeEvent(input$switch, {
    updateTabsetPanel(session = session, inputId = "tabs", selected = "networks")
  })
}

shinyApp(ui, server)