Yes I am uploading file to shiny and also changing the name of jpg file, I want to display the jpg file for each outlet so I am hard coding it
inFile <- input$myFile
if (is.null(inFile))
return()
inFile$name <- paste(input$time,input$attoutlet,Sys.Date(), ".jpg", sep="")
print(inFile$name)
file.copy(inFile$datapath, file.path(".", inFile$name), recursive = TRUE )