R/R数据表中的千位分隔符

我有一个DataTable，它在我闪亮的应用程序中显示得非常完美，除了数千分隔符，它根本不显示。我认为默认情况下它会使用逗号，但当它不显示时，我尝试使用oLanguage sinfo数千指定它。我的另一个语言规范sInfo正在工作，所以我试图弄清楚为什么根本没有显示数千分隔符。这看起来像是数据类型问题还是我如何指定它的问题？前两列在两个表中都是字符串，其余的是整数（在数据帧中是双精度的），它们进行了适当的排序

shinyServer(function(input, output, session){
  tab1_final<-read.csv("/home/bdk/tracker/tab1_final.csv")
  tab2_final<-read.csv("/home/bdk/tracker/tab2_final.csv")

  mydata <- reactive({
    switch(input$dataset, FY = data.table(tab2_final),
           Q = data.table(tab1_final)                     
    )
  })

  output$mytable <- renderChart2({
    dTable(mydata(), 
           sPaginationType = 'full_numbers',
           aLengthMenu = list(c(10, 25, 50, 100, -1),c(10, 25, 50, 100, "All")),
           oLanguage = list(sInfo="Showing _START_ to _END_ of _TOTAL_ entries. All numbers shown in US Dollars.",
                            sInfoThousands=","
                            )
           )
  })
})

shinyServer（功能（输入、输出、会话）{
tab1_finalHi，欢迎访问SO。您能发布您得到的输出与您期望的结果吗？此外，除了Shiny？之外，您是否使用了rCharts，而不是tab1_final.csv（我们没有）如果您可以使用mtcars或其他内置数据集发布一个可复制的示例，这里的某人将能够帮助您。感谢Ram，我已经用mtcars编辑了一个示例。我觉得您的代码没问题。@ramnathv提供的要点不包括千位分隔符。您可以在rCharts github中寻求帮助，他可能会帮助您.可能的副本
#server.R
require(rCharts)
shinyServer(function(input, output, session){
  mtcars$mpg<-mtcars$mpg*1000.3
  mydata <- reactive({
    switch(input$dataset, By_Fiscal_Year = data.table(mtcars),
           By_Quarter = data.table(mtcars)                     
    )
  })
  output$mytable <- renderChart2({
    dTable(data.table(mydata()), 
           sPaginationType = 'full_numbers',
           aLengthMenu = list(c(10, 25, 50, 100, -1),c(10, 25, 50, 100, "All")),
           oLanguage = list(sInfoThousands=",")
           )
  })
})

#ui.R
require(shiny)
require(shinyIncubator)
require(rCharts)
options(RCHART_LIB = 'polycharts')
shinyUI(pageWithSidebar(
  headerPanel(list('Test DataTables Comma')),
  sidebarPanel(  
    selectInput('dataset', 'Choose Current Quarter or Entire FY',
                c('By_Fiscal_Year', 'By_Quarter')            
    )
  ),
  mainPanel(
    tabsetPanel(id ="tab1",
      tabPanel("Table", chartOutput("mytable", "datatables"))
    )
  )
))