if (interactive()) {
library(shiny)
library(shinyMobile)
ui <- f7Page(
f7SingleLayout(
navbar = f7Navbar(title = "File handling"),
f7Block(f7File("up", "Upload!"))
)
)
server <- function(input, output) {
data <- reactive(input$up)
observe(print(data()))
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab