Come utilizzare un simbolo non ASCII (ad esempio £) in una funzione di pacchetto R?

Question

Ho una funzione semplice in uno dei miei pacchetti R, con uno degli argomenti symbol="£":

formatPound <- function(x, digits=2, nsmall=2, symbol="£"){ 
    paste(symbol, format(x, digits=digits, nsmall=nsmall)) 
} 

Ma durante l'esecuzione R CMD check, ottengo questo avvertimento:

* checking R files for non-ASCII characters ... WARNING 
Found the following files with non-ASCII characters: 
    formatters.R 

E 'sicuramente che £ simbolo questo causa il problema Se lo sostituisco con un carattere ASCII legittimo, come $, l'avviso scompare.

Domanda: Come posso utilizzare £ nel mio argomento di funzione, senza incorrere in un avviso R CMD check?

Answer 1

Sembra che "Scrivere Estensioni R" lo copra nella Sezione 1.7.1 "Encoding Issues".

---

Una delle raccomandazioni in questa pagina è quello di utilizzare la codifica Unicode \uxxxx. Dal momento che è £ Unicode 00A3, è possibile utilizzare:

formatPound <- function(x, digits=2, nsmall=2, symbol="\u00A3"){ 
    paste(symbol, format(x, digits=digits, nsmall=nsmall)) 
} 


formatPound(123.45) 
[1] "£ 123.45" 

Answer 2

Per risolvere il problema, è possibile utilizzare la funzione intToUtf8():

# this causes errors (non-ASCII chars) 
f <- function(symbol = "➛") 

# this also causes errors in Rd files (non-ASCII chars) 
f <- function(symbol = "\u279B") 

# this is ok 
f <- function(symbol = intToUtf8(0x279B))