Making tabs interactive in Shiny Dashboard

[vinayprakash808]

Hi all,

Is it possible to make the tabs interactive for the below code. So, only when I select "B" from the dropdown, Tab B should be open

library(shinydashboard)
library(readxl)
ui <- dashboardPage(
  dashboardHeader(title = "Loading data"),
dashboardSidebar(fileInput("datafile","Choose the csv file",multiple = TRUE, 
                           accept = c("text/csv","text/comma-separated-values,text/plain",".csv")),
                   ("Or"),
                 fileInput("datafile1","Choose the excel file",multiple = TRUE, 
                           accept = c(".xlsx")),
                 selectInput("S","Select Tabs",choices = c("A","B"))),
dashboardBody(
  tabBox(fluidRow(title = "Dataset",uiOutput("filter_70"),width = 5000),fluidRow(title="B"))
))

server <- function(input,output){

}

shinyApp(ui, server)