Hi,
I don't know why exactly you want this, but I did come up with a way to do it, yet I'm not sure it's the most elegant solution 
library(shiny)
library(shinydashboard)
library(shinyjs)
ui <- dashboardPage(
dashboardHeader(title = "Human Trafficking"),
dashboardSidebar(
sidebarMenu(
selectInput("HumanTrafficking", "Choose a trafficking type: ", list("Victim", "Trafficker"))
)
),
dashboardBody(useShinyjs(),
tags$div(id = "VictimTab",
tags$h1("VictimTab")
),
tags$div(id = "TraffickerTab",
tags$h1("Trafficker")
)
)
)
server <- function(input, output, session) {
observeEvent(input$HumanTrafficking, {
if(input$HumanTrafficking == "Victim"){
showElement("VictimTab")
hideElement("TraffickerTab")
} else {
hideElement("VictimTab")
showElement("TraffickerTab")
}
})
}
shinyApp(ui, server)
Grtz,
PJ