server.R

#
# This is the server logic of a Shiny web application. You can run the 
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)

# Server
shinyServer(function(input, output) {
  shinyDirChoose(input, 'files', root=c(root='.'))
  shinyFileChoose(input, 'files', root=c(root='.'))
  
  #path <- Sys.getenv("R_SESSION_TMPDIR")
  path <- "."
  files <- list.files(path = path, full.names = TRUE, recursive = TRUE)
  output$table <- renderTable(files)
})

ui.R

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)
library(shinyFiles)

# UI
shinyUI(basicPage(
  shinyFilesButton('files', label='Files Browse', title='Select a file', multiple=FALSE),
  shinyDirButton('files', label='Folder Browse', title='Select a folder'),
  
  tableOutput('table')
))