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