Đối số chức năng truyền dưới dạng chuỗi ký tự?

Question

Câu hỏi nhanh ...

Làm cách nào để lấy đối số của một số chức năng cụ thể (do người dùng xác định) và đặt đối số đó làm chuỗi ký tự?

Nếu vì một ví dụ đơn giản,

foo <- function(x) { ... } 

Tôi muốn chỉ đơn giản là trả lại tên đối tượng x của. Vì vậy,

foo(testing123) 

lợi nhuận "testing123" (và testing123 chỉ có thể có một số vector số ngẫu nhiên)

Xin lỗi nếu câu hỏi này đã được hỏi trước - đã tìm kiếm, nhưng không thể tìm thấy nó! Cảm ơn!!

Answer 1

foo <- function(x) deparse(substitute(x)) 

Answer 2

Rất tiếc, dường như tôi không tìm đủ cứng ...

foo <- function(x) {return(as.character(substitute(x)))} 

Vâng đó là dễ dàng ...

Answer 3

Meta-câu trả lời: nếu bạn biết R làm điều gì đó và bạn muốn để làm điều đó, hãy kiểm tra nguồn. Ví dụ: bạn có thể đã phát hiện ra rằng plot(foo) gậy 'foo' trong số ylab, do đó cốt truyện có thể làm điều đó. Làm sao? Bắt đầu bằng cách xem mã:

> plot 
function (x, y, ...) 
{ 
    if (is.function(x) && is.null(attr(x, "class"))) { 
     if (missing(y)) 
      y <- NULL 
     hasylab <- function(...) !all(is.na(pmatch(names(list(...)), 
      "ylab"))) 
     if (hasylab(...)) 
      plot.function(x, y, ...) 
     else plot.function(x, y, ylab = paste(deparse(substitute(x)), 
      "(x)"), ...) 
    } 
    else UseMethod("plot") 
} 

Và có một số ma thuật deparse(substitute(x)).