3

我创建了一些需要处理 adisk.frame或 adata.table作为输入的函数。由于执行时未找到对象，我从其中future使用的包中收到错误。disk.frame我认为这是因为future在全局环境中寻找要传递给每个工作人员的对象，而没有识别出我在函数执行环境中生成的对象。超级赋值<<-解决了这个问题，但我想知道是否有更好或更合适的方法来实现disk.frame在函数中使用 's？

我在 Windows 10 x64 上使用最新版本的 R 版本 4.0.0 disk.frame '0.3.5'。future '1.17.0'

我已经使用 iris 数据集复制了一个示例：

设置

#Load data
data("iris")
head(iris)
#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1:          5.1         3.5          1.4         0.2  setosa
# 2:          4.9         3.0          1.4         0.2  setosa
# 3:          4.7         3.2          1.3         0.2  setosa
# 4:          4.6         3.1          1.5         0.2  setosa
# 5:          5.0         3.6          1.4         0.2  setosa
# 6:          5.4         3.9          1.7         0.4  setosa

#Setup disk.frame
library(disk.frame)
disk.frame::setup_disk.frame()
options(future.globals.maxSize = Inf)

#Make the disk.frame
df <- disk.frame::as.disk.frame(df = iris)

工作磁盘框架操作

这是有效的，因为filterVals它是在全球环境中。

#data.table style operations - row-wise filter with vector
valMin <- 1.4
valMax <- 3.5
filterVals <- c(valMin, valMax) 

#data.table style filter with disk.frame
means_filter <- df[Petal.Length %between% filterVals, ]

在函数中执行 disk.frame 操作

#data.table style operations on the disk.frame in a function 
f <- function(vMin, vMax, dskF){
  fVals <- c(vMin, vMax)
  dskF[Petal.Length %between% fVals, ]
}

#This will throw an error
means_filter_func <- f(vMin = valMin, vMax = valMax, dskF = df)
# Error in .checkTypos(e, names_x) : 
#   Object 'fVals' not found amongst Sepal.Length, Sepal.Width, Petal.Length, Petal.Width, Species

#Same function but with supper assignment 
f2 <- function(vMin, vMax, dskF){
  fVals <<- c(vMin, vMax)
  dskF[Petal.Length %between% fVals, ]
}
#This works
means_filter_func <- f2(vMin = valMin, vMax = valMax, dskF = df)

#Cleanup
disk.frame::delete(df)
4

0 回答 0