Đặt đối số mặc định thành `...`

Question

Tôi có chức năng tôi đang chuyển ... đến plot, để người dùng có thể thêm đối số bổ sung. Đối với một số đối số tùy chọn này, tôi muốn thiết lập các giá trị mặc định, mà không khai báo chúng như là các đối số chính thức trong hàm. Dưới đây là một ví dụ đơn giản

simpleFun <- function(a, b,...) { 
    args <- as.list(match.call()) 
    if(is.null(args$xlim)) args$xlim <- quote(c(-6, 6)) 

    plot(a, b, xlim = eval(args$xlim)) 
} 

Sau đó, tôi có thể chạy simpleFun(rnorm(10), rnorm(10), xlim = c(-1, 1)) hoặc simpleFun(rnorm(10), rnorm(10)) và xlim sẽ c(-1, 1) trong ví dụ đầu tiên (được định nghĩa bởi người sử dụng) và c(-6, 6) trong lần thứ hai (không được định nghĩa bởi người sử dụng). Vấn đề, tất nhiên, là ... hiện không đi đâu cả. Tôi muốn xác định nó giống như

simpleFun2 <- function(a, b,...) { 
    args <- as.list(match.call()) 
    if(is.null(args$xlim)) args$xlim <- quote(c(-6, 6)) 

    plot(a, b, xlim = eval(args$xlim), ...) 
} 

để cho bất kỳ đối số bổ sung có thể được truyền cho plot, nhưng sau đó gọi simpleFun(rnorm(10), rnorm(10), xlim = c(-1, 1)) sẽ không làm việc vì sẽ có hai xlim đối số cung cấp cho plot.

Vì vậy, về cơ bản, tôi tự hỏi liệu có cách nào để đặt giá trị mặc định cho bất kỳ đối số nào được chuyển qua ... không? Tôi nhận ra cách tôi đã xác định những điều trên có lẽ ít hơn lý tưởng, nhưng nó là tốt nhất tôi đã đưa ra tại thời điểm này (mà vẫn không hoạt động).

Answer 1

Tôi nghĩ điều này yêu cầu do.call(). Lưu ý rằng tôi đã đổi tên đối số mặc định của bạn x và y để khớp với đối số 1 và 2 trong plot(). Nếu bạn muốn tiếp tục sử dụng a và b, hãy bỏ ghi chú dòng thứ tư. Nhưng nó sẽ làm mọi thứ trở nên dễ dàng hơn rất nhiều nếu bạn gắn bó với tên mặc định.

simpleFun <- function(x, y, ...) { 
    args <- as.list(match.call()[-1]) 
    if(!any(names(args) == "xlim")) 
     args$xlim <- c(-6, 6) 
    ## names(args)[1:2] <- c("x", "y") 
    do.call("plot", args) 
} 

Điều này dường như hoạt động tốt trên các lần chạy mẫu này.

simpleFun2(a = rnorm(10), b = rnorm(10)) 
simpleFun2(a = rnorm(10), b = rnorm(10), xlim = c(-1, 1)) 
simpleFun2(a = rnorm(10), b = rnorm(10), xlim = c(-1, 1), ylim = c(-4, 4))