我可以避免在R中用`polynomial（）`定義函數的`eval（parse（））`嗎？

Question

我想避免在包含polynomial()的函數定義中使用parse()。

我的多項式是這樣的：

library(polynom) 
polynomial(c(1, 2)) 
# 1 + 2*x 

我想創建一個使用這個多項式作爲函數：

my.function <- function(x) magic(polynomial(c(1, 2))) 

其中對於magic()，我已經試過的expression()各種組合，formula() ，eval(),as.character()等......但似乎沒有任何工作。

我唯一的工作解決方案是使用eval(parse())：

eval(parse(text = paste0('poly_function <- function(x) ', polynomial(c(1, 2))))) 

poly_function(x = 10) 
# 21 

有沒有更好的辦法做到想我想要的嗎？我可以避免eval(parse())？

Answer 1

好像你可以很容易地編寫自己的功能太

poly_function = function(x, p){ 
    sum(sapply(1:length(p), function(i) p[i]*x^(i-1))) 
} 
# As 42- mentioned in comment to this answer, 
# it appears that p can be either a vector or a polynomial 

pol = polynomial(c(1, 2)) 
poly_function(x = 10, p = pol) 
#[1] 21 

#OR 
poly_function(x = 10, p = c(1,2)) 
#[1] 21 

Answer 2

和你一樣，雖然多項式函數返回一個R表達式，但我們都是錯誤的。閱讀幫助索引包：多項式會幫助我們倆：

str(pol) 
#Class 'polynomial' num [1:2] 1 2 
help(pac=polynom) 

所以user20650是正確的：

> poly_function <- as.function(pol) 
    > poly_function(10) 
    [1] 21 

因此，這是作者（維納布爾斯，Hornick，Maechler）如何做到這一點：

> getAnywhere(as.function.polynomial) 
A single object matching ‘as.function.polynomial’ was found 
It was found in the following places 
    registered S3 method for as.function from namespace polynom 
    namespace:polynom 
with value 

function (x, ...) 
{ 
    a <- rev(coef(x)) 
    w <- as.name("w") 
    v <- as.name("x") 
    ex <- call("{", call("<-", w, 0)) 
    for (i in seq_along(a)) { 
     ex[[i + 2]] <- call("<-", w, call("+", a[1], call("*", 
      v, w))) 
     a <- a[-1] 
    } 
    ex[[length(ex) + 1]] <- w 
    f <- function(x) NULL 
    body(f) <- ex 
    f 
} 
<environment: namespace:polynom> 

既然你在評論提到getAnywhere是新的，然後它也可能是，你可以通過查看「跑起來」，以使用它獲得的情況。如果您在控制檯提示符下鍵入一個函數名，你得到的代碼，在這種情況下：

> as.function 
function (x, ...) 
UseMethod("as.function") 
<bytecode: 0x7f978bff5fc8> 
<environment: namespace:base> 

，直到你跟着它了這是相當無益：

> methods(as.function) 
[1] as.function.default  as.function.polynomial* 
see '?methods' for accessing help and source code 

星號末的polynomial版本告訴你，代碼不是「導出」，即只通過輸入在控制檯上可用。所以你需要從getAnywhere的加載名稱空間中撬出它。