library(shiny)
library(dipsaus)
ui <- basicPage(
fancyFileInput('file_input', "Please upload")
)
if(interactive()) {
shinyApp(
ui, server = function(input, output, session){},
options = list(launch.browser = TRUE)
)
}
Run the code above in your browser using DataLab