切换到一个临时目录，运行fread_zip，然后切换回来。退出R时，临时目录将被删除。
请注意，require应该只在if中使用，以确保如果出现问题，它会在该点被捕获。要加载不带if的包，请使用library。

library(easycsv)

odir <- setwd(tempdir(check = TRUE))
fread_zip(filezip)
setwd(odir)

或者考虑使用自己的函数。除了输入测试文件之外，它不使用easycsv。

library(data.table)

# fread those files from zip file at full path x whose names match pat
# returning list of data tables.
read_zip <- function(x, pat = "\\.csv$") {
  on.exit({ file.remove(Files); setwd(odir) })
  odir <- setwd(tempdir(check = TRUE))
  Files <- unzip(zipfile = x)
  Map(fread, grep(pat, Files, value = TRUE))
}

# test
filezip <- system.file("exampleZips", "example_tables.zip", package="easycsv")
L <- read_zip(filezip)
# list2env(L, .GlobalEnv) # optionally put data tables in global env