R - Phát hiện các biểu thức

Question

Loại đối tượng nào được chuyển đến myFunc là x? Nó không có vẻ là một biểu thức, cũng không phải là một hàm và str chỉ đánh giá nó. Tôi hiểu rằng tôi có thể sử dụng force() để đánh giá. Tôi tự hỏi nếu có một số cách để thu thập thêm thông tin về x mà không đánh giá nó.

myFunc = function(x) 
{ 
    is.expression(x)  
    is.function(x) 
    str(x) 
} 
myFunc({ x = 5; print(x + 1) }) 

Answer 1

bạn có thể sử dụng match.call để trích xuất các đối số:

myFunc <- function(x) { 
    x <- match.call()$x 
    print(class(x)) 
    print(typeof(x)) 
    print(mode(x)) 
    print(storage.mode(x)) 
    print(is.expression(x)) 
    print(is.call(x)) 
    if (is.call(x)) print(x[[1]]) 
} 
myFunc({x = 5; print("a")}) 
myFunc(expression(x)) 
x <- factor(1) 
myFunc(x) 
myFunc(1) 

có lẽ tôi cần phải nói rằng { là một chức năng trong R, vì vậy {...} là không quá call.

Cập nhật: tại sao x không function khi { là function:

f <- function(x) { 
    x <- match.call()$x 
    print(eval(x[[1]])) 
    print(is.function(eval(x[[1]]))) 
} 

f({1}) 

Answer 2

Tôi nghĩ class sẽ thực hiện thủ thuật ... Xem docs.

EDIT: Theo docs,

cho {, kết quả của biểu thức cuối cùng đánh giá

Có nghĩa lớp là lớp phát sinh từ việc đánh giá, đó là lý do tại sao nó không hiển thị như là một "biểu hiện". Nó đang được thông qua sau khi đánh giá.

Answer 3

Dason vừa mới công bố một phản ứng tương tự như sau trên Talkstats.com để xác định nếu một đối tượng là một khung dữ liệu hoặc một danh sách (click here for a link to that post). Tôi chỉ mở rộng nó vào một biểu hiện mà tôi nghĩ phù hợp với nhu cầu của bạn.

j.list <- function(list, by = NULL){ 
    print("list") 
    print(list) 
} 

j.data.frame <- function(df, ..., by = NULL){ 
    print("data frame") 
    print(df) 
} 


j.expression <- function(expression, by = NULL){ 
    print("expression") 
    print(expression) 
} 

j <- function(x, ...){ 
    UseMethod("j") 
} 

j(list(test = "this is a list")) 
j(data.frame(test = 1:10)) 
j(expression(1+ 0:9))