如何解决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 举报,一经查实,本站将立刻删除。