ShinyのDTとR：カスタム番号の書式

Question

DT -packageを使用してデータテーブルを表示する光沢アプリがあります。私が望むのは、カスタムの方法で列の書式を設定できることです。たとえば、私は通貨の値をDT -wayの代わりに1,234.50€と表示したいと考えています。この$ 1,234.5のように表示します（シンボルの変更、通貨記号の位置、および小数点）。アンMWEはこのようになります

：€に通貨記号を変更する場合

library(shiny) 
library(DT) 

shinyApp(
    # UI 
    ui = fluidPage(DT::dataTableOutput('tbl')), 

    # SERVER 
    server = function(input, output) { 
    dat <- data.frame(cur = 1234.5, # supposed to be displayed as: 1,234.50€ | Bad! 
             # displayed as $1,234.5 
         perc = 0.123456, # 12.34% | Good! 
         num = 1000) # 1,000 | Bad! displayed as 1000 

    # render DT 
    output$tbl = DT::renderDataTable(
     datatable(dat) %>% 
     formatCurrency(c('cur'), "$") %>% 
     formatPercentage('perc', 2) %>% 
     formatRound('num', digits = 0) 
    ) 
    } 
) 

それはかなり良い仕事をしていません、しかし、記号が消えます。 "E"のような別の文字を挿入すると、文字は終わりではなく始めに表示されます。さらに、数値には「大きなマーク」はありません。

アイデア？

Answer 1

.jsファイル内の通貨記号の位置は、データテーブルパッケージから変更することができます。

編集DTWidget.formatCurrency機能のラインDTあなたのRのlibrarysのディレクトリに/ htmlwidgets/datatables.jsファイルに

$(thiz.api().cell(row, col).node()).html(currency + markInterval(d, interval, mark)); 

単に

$(thiz.api().cell(row, col).node()).html(markInterval(d, interval, mark) + currency); 

。

€記号については

、

formatCurrency(c('cur'), currency = "\U20AC", interval = 3, mark = ",", digits = 2) 

は私のために仕事をして、あなたがしようとしたものをthatsの、あなたは任意のシンボルが表示されませんか？あなたが試みることができる数値については