Question

这是我在函数中调用ffwhich的代码：

library(ffbase)
rm(a,b)
test <- function(x) {
  a <- 1
  b <- 3
  ffwhich(x, x > a & x < b)
}
x <- ff(1:10)
test(x)
Error in eval(expr, envir, enclos) (from <text>#1) : object 'a' not found

traceback()
6: eval(expr, envir, enclos)
5: eval(e)
4: which(eval(e))
3: ffwhich.ff_vector(x, x > a & x < b)
2: ffwhich(x, x > a & x < b) at #4
1: test(x)

这可能是由于懒惰评估造成的？ eval（）找不到功能测试中有界的a和b。如何在函数中使用ffwhich？

R 2.15.2
ffbase 0.6-3
ff 2.2-10
操作系统打开12.2 64位

Answer 1

是的，看起来像Arun这样的eval问题正在表明。当使用ffwhich时，我通常使用以下内容，就像eval一样。

library(ffbase)
rm(a,b)
test <- function(x) {
  a <- 1
  b <- 3
  idx <- x > a & x < b
  idx <- ffwhich(idx, idx == TRUE)
  idx
}
x <- ff(1:10)
test(x)

Answer 2

我遇到了同样的问题，给出的答案并没有解决它，因为我们无法将参数“condition”传递给函数。我有办法做到这一点。这是::

require(ffdf) 
# the data :: 
x <- as.ffdf( data.frame(a = c(1:4,1),b=5:1))
x[,]

# Now the function below is working :: 

idx_ffdf <- function(data, condition){
 exp <-substitute( (condition) %in% TRUE) 
 # substitute will take the value of condition (non-evaluated). 
 # %in% TRUE makes the condition be false when there is NAs... 
 idx <- do.call(ffwhich, list(data, exp) ) # here is the trick: do.call !!! 
 return(idx)
}
# testing : 
idx <- idx_ffdf(x,a==1)
idx[] # gives the correct 1,5 ...

idx <- idx_ffdf(x,b>3)
idx[] # gives the correct 1,2 ...

希望这有助于某人！

R ff ffbase ff在函数调用中出错？

2 个答案: