formatCurrency(mark = ' ')后DT导出数据到excel的问题

问题描述

我使用app.R的简单代码。 当我在本地机器上启动它并通过 xls 导出表时 - 没关系。 当我在服务器上启动它并执行相同操作时 - 所有数字列都是 xls 中的字符。有错误“此单元格中的数字格式为文本或前面有撇号”。 当我通过 csv 复制或导出时 - 没关系。 仅通过 xls 导出且仅在服务器上存在问题。

主要问题是 FormatCurrentcy 中的参数“标记”。如果我将其设置为 '.'或 ',' - 没关系。但我需要' '（空格）。也许我的本地机器和服务器上有一些不同的设置。

附上脚本

library(shiny)
library( DT )
library(dplyr)
# Define UI for application that creates a datatables
ui <- fluidPage(
  # Application title
  titlePanel("Download Datatable")
  # Show a plot of the generated distribution,mainPanel(
    DT::dataTableOutput("fancyTable")
  ) # end of main panel
  
) # end of fluid page

# Define server logic required to create datatable
server <- function(input,output) {
  output$fancyTable <- DT::renderDataTable(
    datatable( data = mtcars * 1000,extensions = 'Buttons',options = list( 
                 dom = "Blfrtip",buttons = 
                   list("copy",list(
                     extend = "collection",buttons = c("csv","excel"),text = "Download"
                   ) ) # end of buttons customization
                 # customize the length menu,lengthMenu = list( c("All") # declare values
                                      # declare titles
                 ) # end of lengthMenu customization,pageLength = 10
               ) # end of options
    ) %>%  # end of datatables
    formatCurrency(interval = 3,mark = ' ',columns = 1:ncol(mtcars),currency = '',digits = 0)
  )
} # end of server
# Run the application 
shinyApp(ui = ui,server = server)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）