observeEvent(input$strImgs,{
     browser()
    updateTextInput(session, "storeImage", value = jchoose.dir())
    })

observeEvent(input$downloadFinalAssortment,{
  if(input$downloadFinalAssortment >= 1){
  path <- choose.directory()
  if(!is.na(path)){
   write.csv(x = Data()[[1]][[4]], file =
paste0(path,"/", "Final_file.csv"), row.names = FALSE)
}
  }
     })