Cách sử dụng ký hiệu không phải ASCII (ví dụ: £) trong hàm gói R?

Question

Tôi có một chức năng đơn giản trong một trong các gói R của tôi, với một trong các đối số symbol="£":

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

Nhưng khi chạy R CMD check, tôi nhận được cảnh báo này:

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

Đó chắc chắn rằng biểu tượng £ gây ra vấn đề. Nếu tôi thay thế bằng ký tự ASCII hợp pháp, như $, cảnh báo sẽ biến mất.

Câu hỏi: Tôi có thể sử dụng £ trong đối số chức năng của mình như thế nào mà không phải cảnh báo R CMD check?

Answer 1

Có vẻ như "Viết R tiện ích mở rộng" bao gồm phần này trong Mục 1.7.1 "Encoding Issues".

---

Một trong các đề xuất trong trang này là sử dụng mã hóa Unicode \uxxxx. Kể từ £ là Unicode 00A3, bạn có thể sử dụng:

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

Là một khắc phục, bạn có thể sử dụng chức năng 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))