Formater les valeurs numériques

Bonsoir,
Je souhaite formater les valeurs numériques avec un séparateur entre les milliers mais ça ne marche pas.
Pourriez-vous me dire la syntaxe exacte svp.
Merci

Code:

1
2
3
4
  output$tableAmortMortgage <- renderDataTable({
    dfAmortMortgage()
  },
  options = list(language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/French.json'), columnDefs = list(list(className = 'dt-body-right', targets = 0:10)), "scipen" = 100, "digits" = 9, decimal.mark=" ",big.mark=" ",small.mark=",", small.interval=3, rowlabel = TRUE, autoWidth = TRUE, rownames = TRUE, header=TRUE, pagingType = "simple_numbers", lengthMenu = c(5,10,15), scrollX=TRUE, scrollY = "200px", scroller = TRUE, bInfo = FALSE, bFilter = FALSE, ordering = FALSE, pageLength = 5, aLengthMenu = 5, iDisplayLength = 5, striped = TRUE)

Bonjour,

Une proposition :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
> library(scales)
> df <- data.frame(A=c(1000.5,2000,3000))
> df$B <- comma_format(digits = 12)(df$A)
> df
       A       B
1 1000.5 1,000.5
2 2000.0 2,000.0
3 3000.0 3,000.0
> str(df)
'data.frame':   3 obs. of  2 variables:
 $ A: num  1000 2000 3000
 $ B: chr  "1,000.5" "2,000.0" "3,000.0"

Cordialement,

Bonsoir,
votre proposition m'a bien aidé.
Merci