file un-upload in shiny? code example

Example: shiny fileinput does not keep file name

file.copy(input$upload$datapath, paste0("your_folder/", input$upload$name))