title: SideBar Not rendering anything on Dashboard Body: R Shiny Dashboard
body: <p>I am creating a shiny Dashboard which has two tabs in the side bar. <strong>Tab1</strong> is for importing a csv and <strong>Tab2</strong> is for showing the plots for the selected variable. </p>
  
  <p>Tab2 has 1 select input option for selecting the variable for plot </p>
  
  <p><strong>Problem</strong>: After clicking on sidebar tabs, my dashboard body doesn't change. It is always showing me Tab1 Content i.e csv import results.
  So despite of clicking on Tab2 in sidebar, nothing happens</p>
  
  <p>Following is my script</p>
  
  <pre><code>library(shinydashboard)
  library(shiny)
  library(DT)
  #UI
  
  sidebar=dashboardSidebar(width=200,
                       sidebarMenu( id="sidebar",
                                    menuItem("Data UpLoad", tabName = "dashboard", icon = icon("table"), 
                                             fileInput('file1','Choose CSV File',
                                                      accept=c('text/csv','text/comma-separated-values,text/plain', '.csv'))),
  
                                    menuItem("Uni Variate", tabName = "Uni", icon = icon("line-chart"),
                                             fluidRow(
                                            selectInput("options",label=h5("Select Column"),"")))))
  
  
  body= dashboardBody(
   tabItems(
  tabItem(tabName="dashboard",class='active',
          fluidRow(
            box(
              title="Data",solidHeader = TRUE, collapsible = TRUE,
              div(style='overflow-x: scroll',tableOutput("table1"))))),
  
  tabItem(tabName = "Uni",
          fluidRow(box(title="Plot",solidHeader = TRUE,plotOutput("plot1"))),
          h2("tab content"))))
  
  dashboardPage(
  dashboardHeader(title= "test"),sidebar,body)
  
  #Server
  server &lt;- function(input, output,session) {
  data_set &lt;- reactive({
  req(input$file1)
  inFile &lt;- input$file1
  data_set1&lt;-read.csv(inFile$datapath)
  list(data=data_set1)
   })
   # updating select input of second tab in shiny side bar
  observe({
   updateSelectInput(
    session,
    "options",
    choices = names(data_set()$data))})
  
  # tab1
  output$table1= renderTable({
  de=as.data.frame(data_set()$data[1:7,])})
  
  #tab2
  output$plot1 &lt;- renderPlot({ggplot(data_set$data,aes(y=input$options,x=Prediction))+geom_histogram(binwidth=0.50, fill="blue") })
  }
  </code></pre>
  
  <p>Every help is important!</p>