使用fread读取zip文件

Question

我试图像这样用fread调用一个zip文件

data<-("www/608.zip")

test<- fread('gunzip -cq data')

它显示了此错误does not exist or is non-readable

但是如果我打电话

test<- fread('gunzip -cq www/608.zip') 

在我的脚本上，每次数据值都会改变，所以我使用If命令像这样选择数据

    data<-reactive({
    if (input$list == 'all') 
    { 
    "www/6.zip"
     }
    else{
    if (input$list == 'hkj')
     {
    "www/6.zip"
    }

Answer 1

我认为它应该如下工作：

data <- "www/608.zip"
test <- fread(cmd = paste("gunzip -cq", data))

即您必须先使用paste()创建命令字符串，然后将其作为cmd参数传递给fread()。

Answer 2

如果要读取文件路径，可以使用paste0创建字符串

data <- "www/608.zip"
test <- fread(cmd = paste0("gunzip -cq ", data))

fread suggest出于安全原因使用cmd参数。

Answer 3

我们也可以使用glue

data <- "www/608.zip"
fread(cmd = glue::glue("gunzip -cq {data}"))