Here is some more information:
UI:
ui <- dashboardPage(
dashboardBody(
selectInput( "Category", "Select Category", c("Overview", "Position", "Age", "Player")),
uiOutput('outputfilter'))
))
Server:
server <- function(session, input, output) {
observeEvent(input$Category,{
categoryfilterinput<- paste(input$Category)
output$outputfilter <- renderUI({
switch(categoryfilterinput,
"Position" = selectInput('positioninput', 'Select Position', choices = c("Forwards","Defencemen", "Goalies")),
"Age" = selectInput('ageinput', 'Select Age Range', choices = c("<20","20-23", "23-25", "25-30", ">30")),
"Player" = selectInput("Playernameinput", "Select Player", choices = Roster$Playername))
})
})