title: R shiny - nothing showing on the main panel after selecting the directory where the file was stored
body: <p>I am trying to dynamically select directory from the computer where files are stored. Currently there is a sas dataset named 'sample' stored under my win10 PC desktop.</p>
  <p>I would like to print out the first 10 observations of the sample dataset I read into, but it is not working without showing any error.</p>
  <pre><code>library(shiny)
  library(shinyFiles)
  library(haven)
  library(DT) 
  
  ui&lt;-fluidPage(sidebarLayout(
    
    sidebarPanel(
      shinyDirButton(&quot;dir&quot;, &quot;Chose directory&quot;, &quot;Upload&quot;)
    ),
    
    mainPanel(
      DT::dataTableOutput(&quot;sasdat&quot;)
    )
    
  ))
  
  server &lt;- function(input,output,session){
    
    dir &lt;- reactive(input$dir)
    shinyDirChoose(input, 'dir', roots=c(name=getwd()), session=session)
    path1 &lt;- reactive({
      return(print(parseDirPath(volumes, input$dir)))
    })
    
    data1 &lt;- eventReactive(input$path1, {
      sample &lt;- data.frame(read_sas(paste0(path1, &quot;sample.sas7bdat&quot;)))
      sample
    })
    output$sasdat = DT::renderDataTable({
      head(data1(),10)
    })
    
    
  }
  shinyApp(ui = ui, server = server)
  </code></pre>