使用r shiny中的动作按钮下载完整格式的excel文件

Question

我创建了以下闪亮的应用程序

library(shiny)
library(shinyjs)
library(openxlsx)

，一旦导入软件包，我们就会

ui <- fluidPage(
fileInput(inputId = "file", label = "Read File Here", accept = c(".xlsx")),
useShinyjs(), actionButton("showtxt", "Show/Download File"))


server <- function(input, output, session){
server <- function(input, output, session){
observeEvent(input$showtxt,{
tf<-tempdir()
infile<- input$file
wb2 <-openxlsx::loadWorkbook(file = infile$datapath)
df_1<-data.frame("DF"= c(1:3))      
addWorksheet(wb = wb2,sheetName =  "Parameters1")
writeData(wb2, "Parameters1", df_1, startCol = 1, startRow = 2, rowNames = TRUE)
saveWorkbook(wb2, "File.xlsx") })
# Call Onclick
 onclick("showtxt", runjs("window.open('test.xlsx')"))}
  shinyApp(ui=ui,server=server) 

通过创建Excel Workbook上传的克隆/副本来创建UI和服务器。按下下载时，新的Excel工作簿将具有原始工作簿的所有格式以及添加了新的表格。 该新工作簿保存在包含脚本的文件夹中。默认情况下，我该如何将其转到笔记本电脑下载文件夹。 注意：我已经使用下载处理程序尝试了一下，但是由于某些原因，我想使用一个动作按钮。 我要求某人看看并在这里引导我。先感谢您。