Anzeige des Währungsformats mit Kable mit Rmarkdown

Question

Ich versuche, ein R data.frame in einer HTML-Datei anzuzeigen, die mit R Markdown erstellt wurde. Ich möchte die numerischen Spalten in dieser data.frame wie dies in einem Währungsformat angezeigt werden: 800 124 €

Hier ist mein Code:

--- 
title: "test" 
output: html_document 
--- 


```{r,echo=FALSE} 
test=data.frame(t1=c("Pres1","Pres2"),t2=c(800124,1236545),t3=c(565473,456841)) 
library(knitr) 
kable(test,format.args=list(big.mark=" ")) 
``` 

Ich habe versucht, die Paste-Funktion zu verwenden, um hinzufügen die fehlende Zeichenfolge "€" am Ende jeder Zelle, aber ohne Erfolg.

Gibt es eine einfache Möglichkeit, das zu tun? Danke

Answer 1

In HTML können Sie den Euro mit €, € oder € darstellen, aber Sie müssen das Semikolon enthalten. Das Folgende funktioniert für mich.

--- 
title: "test" 
output: html_document 
--- 


```{r,echo=FALSE} 
append_euro <- function(x, ...){ 
    sprintf("%s &euro;", 
      format(x, ...)) 
} 

test=data.frame(t1=c("Pres1","Pres2"),t2=c(800124,1236545),t3=c(565473,456841)) 
test[c("t2", "t3")] <- 
    lapply(test[c("t2", "t3")], 
      append_euro, 
      big.mark = " ") 
library(knitr) 

kable(test) 
```