library(shiny) # Define UI for data upload app ---- ui <- fluidPage( # title titlePanel("test"), # main panel mainPanel( # Input: Select a file ---- fileInput("file1", "Choose File") ) ) # Define server logic to read selected file ---- server <- function(input, output) {} # Create Shiny app ---- shinyApp(ui, server)