Đánh giá biểu thức được đưa ra dưới dạng một chuỗi

Tôi tò mò muốn biết liệu R có thể sử dụng eval()chức năng của nó để thực hiện các phép tính được cung cấp bởi ví dụ như một chuỗi không.

Đây là một trường hợp phổ biến:

eval("5+5")

Tuy nhiên, thay vì 10 tôi nhận được:

[1] "5+5"

Bất kì giải pháp nào?

Các eval()chức năng đánh giá một biểu thức, nhưng "5+5"là một chuỗi, không phải là một biểu hiện. Sử dụng parse()với text=<string>để thay đổi chuỗi thành một biểu thức:

> eval(parse(text="5+5"))
[1] 10
> class("5+5")
[1] "character"
> class(parse(text="5+5"))
[1] "expression"

Gọi eval()gọi nhiều hành vi, một số không rõ ràng ngay lập tức:

> class(eval(parse(text="5+5")))
[1] "numeric"
> class(eval(parse(text="gray")))
[1] "function"
> class(eval(parse(text="blue")))
Error in eval(expr, envir, enclos) : object 'blue' not found

Xem thêm thử .

Bạn có thể sử dụng parse()hàm để chuyển đổi các ký tự thành một biểu thức. Bạn cần xác định rằng đầu vào là văn bản, vì phân tích cú pháp mong đợi một tệp theo mặc định:

eval(parse(text="5+5"))

Xin lỗi nhưng tôi không hiểu tại sao quá nhiều người thậm chí nghĩ rằng một chuỗi là thứ có thể được đánh giá. Bạn phải thay đổi suy nghĩ của bạn, thực sự. Quên tất cả các kết nối giữa các chuỗi ở một bên và các biểu thức, cuộc gọi, đánh giá ở phía bên kia.

Kết nối (có thể) chỉ thông qua parse(text = ....)và tất cả các lập trình viên R giỏi nên biết rằng đây hiếm khi là một phương tiện hiệu quả hoặc an toàn để xây dựng các biểu thức (hoặc các cuộc gọi). Thay vì tìm hiểu thêm về substitute(), quote()và có thể sức mạnh của việc sử dụng do.call(substitute, ......).

fortunes::fortune("answer is parse")
# If the answer is parse() you should usually rethink the question.
#    -- Thomas Lumley
#       R-help (February 2005)

Dec.2017: Ok, đây là một ví dụ (trong các bình luận, không có định dạng đẹp):

q5 <- quote(5+5)
str(q5)
# language 5 + 5

e5 <- expression(5+5)
str(e5)
# expression(5 + 5)

và nếu bạn nhận được nhiều kinh nghiệm bạn sẽ biết rằng q5là một "call"trong khi e5là một "expression", và thậm chí là e5[[1]]giống hệt q5:

identical(q5, e5[[1]])
# [1] TRUE

Ngoài ra, bạn có thể sử dụng evalstừ pandergói của tôi để nắm bắt đầu ra và tất cả các cảnh báo, lỗi và thông báo khác cùng với kết quả thô:

> pander::evals("5+5")
[[1]]
$src
[1] "5 + 5"

$result
[1] 10

$output
[1] "[1] 10"

$type
[1] "numeric"

$msg
$msg$messages
NULL

$msg$warnings
NULL

$msg$errors
NULL


$stdout
NULL

attr(,"class")
[1] "evals"

Ngày nay bạn cũng có thể sử dụng lazy_evalchức năng từ lazyevalgói.

> lazyeval::lazy_eval("5+5")
[1] 10

Tương tự sử dụng rlang:

eval(parse_expr("5+5"))