DT in Shiny und R: Benutzerdefinierte Zahlenformatierung

Question

Ich habe eine Shiny-App, die eine Datentabelle mit dem DT -Paket anzeigt. Ich möchte Spalten in einer benutzerdefinierten Weise formatieren können. Zum Beispiel möchte ich, dass ein Währungswert wie folgt angezeigt wird: 1.234,50 € anstelle des DT -ways, der es wie folgt anzeigt: 1.234,5 $ (beachten Sie die Änderung des Symbols, die Position des Währungssymbols sowie die Zahlen nach dem Komma).

Ein MWE sieht wie folgt aus:

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) 
    ) 
    } 
) 

Es ist eine ziemlich gute Arbeit geleistet, aber wenn das Währungssymbol zu € ändern, das Symbol verschwindet. Wenn Sie ein anderes Zeichen wie "E" einfügen, wird das Zeichen immer noch am Anfang und nicht am Ende angezeigt. Außerdem erhält der numerische Wert keine "große Markierung".

Irgendwelche Ideen?

Answer 1

Sie können die Position des Währungssymbols in der .js-Datei aus dem Datenpaket ändern.

Bearbeiten Sie die Zeile der DTWidget.formatCurrency Funktion

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

einfach

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

im DT/htmlwidgets/datatables.js Datei im Verzeichnis Ihrer R librarys.

Was das € Symbol,

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

für mich nicht funktioniert, das ist, was Sie versucht haben und Sie kein Symbol sehen?