我试图像这样用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"
}
答案 0 :(得分:2)
我认为它应该如下工作:
data <- "www/608.zip"
test <- fread(cmd = paste("gunzip -cq", data))
即您必须先使用paste()
创建命令字符串,然后将其作为cmd
参数传递给fread()
。
答案 1 :(得分:1)
如果要读取文件路径,可以使用paste0
创建字符串
data <- "www/608.zip"
test <- fread(cmd = paste0("gunzip -cq ", data))
fread
suggest出于安全原因使用cmd参数。
答案 2 :(得分:1)
我们也可以使用glue
data <- "www/608.zip"
fread(cmd = glue::glue("gunzip -cq {data}"))