ui <- shinyUI(bootstrapPage(
shinyFilesButton('files', 'File select', 'Please select a file', FALSE)
))
server <- shinyServer(function(input, output, session) {
output$files <- shinyFileChoose(input, 'files', session=session,
roots=c(wd='.'), filetypes=c('', '.txt'))
})
runApp(list(
ui=ui,
server=server
))
Run the code above in your browser using DataLab