Things seem to work as intended by DT v(0.34.0). The original code: datatable(m) %>% formatCurrency("A", "£", digits=1) yields the following (with pound currency, rather than Euro, which is what "\U20AC" will give you)
datatable(m) %>% formatCurrency("A", "£", digits=1)