title: get() the name of an uploaded file in shiny
body: <p>I have a simple question regarding my snippet of code below.</p>
  
  <pre><code>library(shiny)
  ui &lt;- fluidPage(
  
    fileInput("x", "upload file", accept = c(
      "text/csv",
      "text/comma-seperated-values, text/plain",
      ".csv")),
  
    tableOutput("my_csv")
  )
  
  server &lt;- function(input, output) {
  
  
    csv &lt;- reactive({
      inFile &lt;- input$x
      if (is.null(inFile))
        return(NULL)
      df&lt;- read.csv2(inFile$datapath, header=T)
      return(df)
    })
  
    output$my_csv &lt;- renderTable({
      validate(need(!is.null(csv()),'no file yet.'))
        csv()
    })
  }
  
  
  shinyApp(ui, server)
  </code></pre>
  
  <p>What I want is a function like get() to print the name of the uploaded csv-file.
  In the next step I want to create a list (named "list") with the uploaded file as its first object with the file's name.
  So, if the uploaded file's name is "squirrel.csv" and I call list$squirrel.csv I want to see the table.</p>