DT Shiny ve R: Özel sayı

Question

biçimlendirme ben DT -package kullanarak datatable görüntüleyen parlak-uygulamam var. İstediğim, sütunları özel bir şekilde biçimlendirebilmek. Örneğin, şu şekilde görüntülenecek bir para birimi değeri istiyorum: DT yerine 1,234,50 €, bu da 1,234,5 dolar gibi görünür (semboldeki değişikliği, para birimi sembolünün konumunu ve ayrıca ondalık nokta).

Bir MWE şuna benzer: € para birimi-sembolü değiştirirken

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

Oldukça iyi bir iş, ancak, sembol kaybolur gelmez. "E" gibi başka bir karakter eklerken, karakter hala başında değil başında görüntülenir. Ayrıca, sayısal değer bir "büyük işareti" almaz.

Herhangi bir fikrin var mı?

Answer 1

Sen Datatable paketinden .js dosyasındaki para sembolünün pozisyonunu değiştirebilir.

Düzenleme DTWidget.formatCurrency fonksiyonunun çizgisi DT sizin R librarys Dizine/htmlwidgets/datatables.js dosya içinde

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

basitçe

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

. € Sembol gelince

,

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

, benim için çalışır denediğinizi ve herhangi bir sembol görmüyorum thats ne? deneyebilirsin sayısal İçin