прочитать файл Excel, записать данные, а затем экспортировать Excel в R блестящий

Question

Я пытаюсь загрузить предварительно отформатированный файл excel в приложение Riny, затем записать данные в файл и экспортировать их. Тем не менее, код дает ошибку. Не уверен, где он идет не так

Код сервера:

output$download_data <- downloadHandler(
    filename = function() {
      paste(input$name,"_excel_file.xlsx", sep="")
    },

    content = function(file) {

      ## Exporting data to excel sheet

      HT <- data.frame(Selection = c("Name","Address","City","Post code","Country", "Phone"), 
                 Details  =  c(Name, 
                               Address, 
                               City, 
                               Post_code,
                               Country,
                               Phone))


      wb <- loadWorkbook("excel_file.xlsx")
      writeData(wb, sheet = "data", HT, colNames = F, startRow = 4)

      tempFile <- tempfile(fileext = ".xlsx") # Save data to a temporary file
      saveWorkbook(wb, tempFile, overwrite = T)
      file.copy(tempFile, file)
    }
  )

Код интерфейса:

downloadButton("download_data", "Download file", class="btn btn-info")

Ваш помощь приветствуется.