Upload image file or Rmd file to shiny App

Posit Professional & Hosted Products shinyapps.io
1

I am using the following to upload files to R Shiny. The upload only works when it runs locally. Once I deploy the app to shinyapps.io the upload does not work, Files appear uploaded but upon downloading the bundle the file is not there.


library(shiny) 

ui <- shinyUI(fluidPage(
  
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', 'Select file to upload' )  
    ),
    mainPanel(
      h4('List of uploaded files:')
      ,verbatimTextOutput('fileList')
    )
  ))
)

server <- shinyServer(function(input, output) {
  
  observe({  
    if (is.null(input$file1) ) {    return(NULL)  }  
    file.copy(from = input$file1$datapath, to =  paste0('userFile_',input$file1$name )  ) 
  }) 
  
  output$fileList <- renderText({  
    input$file1
    dir(pattern = 'userFile_') 
  })
})

shinyApp(ui, server)






```