sử dụng danh sách các giá trị có thể có trong lệnh chuyển đổi

Question

Có thể cung cấp một loại danh sách các giá trị có thể cho hàm switch của tôi không. Tôi muốn giữ mọi thứ tự động cập nhật, nếu ai đó cung cấp thông số sai.

Tôi sử dụng {} cho từng điều kiện, bởi vì tôi sẽ thực thi thêm sau đó chỉ khai báo biến này trong hàm của tôi, tôi sẽ thực hiện một số việc trong chuyển đổi này.

switch(con, 
     val1={ 
     filename <- 'SILAC-DML_with_PDF.R' 
     }, 
     val2={ 
     filename <- 'SILAC-DML_with_PDF.R' 
     }, 
     stop(sprintf('"%s" is an unknown condition type, please use one of "%s".\n', 
        con, paste(c('val1','val2'), collapse=', ')))) 

Tôi rất muốn có thứ gì đó giống như danh sách mà tôi có thể chỉ dán tên để nhận các giá trị có thể. Vì vậy, giải pháp lý tưởng muốn có một chút như thế này, nhưng không có một thông báo lỗi :-)

my_list <- list(val1=filename <- 'a.R', 
       val2=filename <- 'b.R') 
switch(con, 
     my_list, 
     stop(sprintf('"%s" is an unknown condition type, please use one of "%s".\n', 
        con, names(my_list), collapse=', ')))) 

Answer 1

Chức năng switch là không cần thiết, bạn chỉ có thể tập hợp con một danh sách các giá trị trực tiếp:

alternatives = list(val1 = 'SILAC-DML_with_PDF.R', 
        val2 = 'SILAC-DML_with_PDF.R') 
result = alternatives[[con]] 
if (is.null(result)) 
    stop(…) 

… switch là một con quái vật kỳ lạ trong R. Tôi chưa bao giờ thực sự thấy nó hữu ích.

Nếu bạn cần hành động phức tạp hơn sẽ được thực hiện, xem xét sử dụng một danh sách các chức năng:

alternatives = list(
    val1 = function() { message('foo') }, 
    val2 = function() { message('bar') } 
) 

if (! con %in% names(alternatives)) 
    stop(…) 
result = alternatives[[con]]() 

Tôi không nghĩ rằng đây có thể đạt được thông minh với switch nhưng nó có thể đương nhiên được bao bọc vào riêng của mình chức năng nhỏ. Lưu ý rằng không giống như câu trả lời của Hadley, tất cả các bên trên tránh trùng khớp tên đối số một phần, đó là một nguồn lỗi lớn và thuộc về bị trục xuất khỏi mặt Trái Đất.

Answer 2

Thay vì chuyển đổi, bạn có thể sử dụng match.arg() và Subsetting:

filenames <- c(
    val1 = "a.R", 
    val2 = "b.R" 
) 
con <- match.arg(con, names(filenames)) 

filename <- filenames[[con]] 

Lưu ý rằng điều này cho phép kết hợp một phần của con, mà có thể hoặc không có thể hữu ích đối với trường hợp sử dụng của bạn.