更改軟件包中所有函數的通用默認參數

我想編寫一個函數，將默認值「重置」爲包中所有R函數的通用參數。更改軟件包中所有函數的通用默認參數

這可能嗎？

我已經想到了是這樣的，但是這只是返回的咖喱功能列表：從magrittr包

library(magrittr) 

function(parameter){ 
    ls("package:packageName") %>% 
    lapply(function(fxnName){ 
     functional::Curry(get(fxn), paramOfInterest = parameter) 
    } 
}

管%>%。

我想這樣做的一個警告是丟失文檔。

也許我可以通過引用可修改的屬性並將其存儲在包中的對象中來解決此問題？

來源

2015-06-17 altimit

雖然有可能將其分配給全球環境中做到這一點，下面是整潔在我看來，因爲默認的行爲可以很容易地通過detach恢復荷蘭國際集團的環境：因爲我

首先是一些演示功能不知道你想用哪個包：

packageDemo <- new.env() 
makeFun <- function(x) {x;function(param) c(x, param)} 
for (i in paste0("f", letters)) assign(i, makeFun(i), packageDemo)

現在這裏是我的咖喱包功能。它將環境或包名稱作爲字符向量（例如"package:myPackage"）。環境中的所有功能都會被粘貼並添加到返回的新環境中。如果需要的話，這可以是attach。

curryPackage <- function(package, ..., functionNames = NULL){ 
    if (is.character(package) && !grepl("^package:", package)) { 
    package <- paste0("package:", package) 
    } 
    fnNames <- ls(package) 
    if (!is.null(functionNames)) { 
    fnNames <- fnNames[fnNames %in% functionNames] 
    } 
    fnNames <- fnNames[vapply(fnNames, function(x) is.function(get(x, package)), logical(1))] 
    fnList <- lapply(fnNames, function(x){ 
    functional::Curry(get(x, package), ...) 
    }) 
    names(fnList) <- fnNames 
    list2env(fnList) 
}

現在一些演示

attach(packageDemo) 
fc("Testing") 
#[1] "fc" "Testing" 
fc() 
#Error in fc() : argument "param" is missing, with no default 

newPack <- curryPackage(packageDemo, param = "demo") 
attach(newPack) 
#The following objects are masked from packageDemo: 
# 
# fa, fb, fc, fd, fe, ff, fg, fh, fi, fj, fk, fl, fm, fn, fo, fp, fq, fr, fs, ft, fu, fv, fw, fx, fy, fz 
fc("Testing") 
#Error in (function (param) : unused argument ("Testing") 
fc() 
#[1] "fc" "demo"

來源

2015-06-17 11:26:35

更改軟件包中所有函數的通用默認參數

回答

相關問題