if (FALSE) {
# File selections
ui <- shinyUI(bootstrapPage(
shinyFilesButton('files', 'File select', 'Please select a file', FALSE)
))
server <- shinyServer(function(input, output) {
shinyFileChoose(input, 'files', roots=c(wd='.'), filetypes=c('', 'txt'),
defaultPath='', defaultRoot='wd')
})
runApp(list(
ui=ui,
server=server
))
}
if (FALSE) {
# Folder selections
ui <- shinyUI(bootstrapPage(
shinyDirButton('folder', 'Folder select', 'Please select a folder', FALSE)
))
server <- shinyServer(function(input, output) {
shinyDirChoose(input, 'folder', roots=c(wd='.'), filetypes=c('', 'txt'))
})
runApp(list(
ui=ui,
server=server
))
}
if (FALSE) {
# File selections
ui <- shinyUI(bootstrapPage(
shinySaveButton("save", "Save", "Save as...")
))
server <- shinyServer(function(input, output) {
shinyFileSave(input, "save", roots = c(wd = "."))
})
runApp(list(
ui = ui,
server = server
))
}
Run the code above in your browser using DataLab