R 使用按钮扩展名在Excel中保留数字格式

我正在使用Shiny下载Excel文件中的数字

DTa <- data.table( 
      dataSum()[,1],
      format(round((10^-6)*dataSum()[,-1],2),nsmall = 2,decimal.mark=",",big.mark=".")
           )
   DTa<- DT::datatable( DTa,  extensions=c("Buttons"),options = list(paging = FALSE, 
                               searching = FALSE,
                               dom = 'Bfrtip',
                               #buttons = c('copy','excel')
                               buttons = list(
                                 list(
                                   extend = 'excel', 
                                   text = "Save ", 
                                   title = 'KRB'
                                 ),   list(
                                   extend = 'copy', title = 'krb'
                                 )
                               )
                               ),
                   caption=  paste("Stichtag:", 
                             as.character(sub("([0-9]{2})([0-9]{2})([0-9]{4})KRB.csv", "\\1.\\2.\\3",input$date))))

DTa试试这个

DTa<- DT::datatable(DTa, extensions=c("Buttons"), options = list(paging = FALSE, 
                                                  searching = FALSE,
                                                  dom = 'Bfrtip',
                                                  #buttons = c('copy','excel')
                                                  buttons = list(
                                                   list(
                                                        extend = 'excel', 
                                                        text = "Save ", 
                                                        title = 'KRB'
                                                        ), list(
                                                          extend = 'copy', title = 'KRB'
                                                         )
                                                        )
                                                        ),
          caption= paste("Stichtag:", 
                   as.character(sub("([0-9]{2})([0-9]{2})([0-9]{4})KRB.csv", "\\1.\\2.\\3",input$date)))
          ) %>% formatCurrency(-1,' ', digits = 2 , interval = 3, mark = ".", dec.mark = ",")

DTa%formatCurrency（-1'，，数字=2，间隔=3，标记=“.”，十二月标记=“，”）
可能输出为CSV？我也尝试了CSV格式的输出，但是它看起来不太好。你能为
数据集提供可复制的示例吗？
很好的主意excel bottom现在运行良好，但我在复制bottom时遇到了一个问题！：(