r - 如何根据列数删除某些数据框？

Question

我只想从环境中删除一些数据框。由于那里有 400 多个数据框，我想根据列数进行选择。

但是，我尝试了下面的代码，但它不起作用。

# Select data tables
dfs <- ls()
dfs <- dfs[grepl(".csv", dfs)]

myfilenames <- list.files(inputdir, pattern = ".csv$")
storage <- data.frame(matrix(nrow=length(myfilenames), ncol=1))

# Filter for 25 columns
for (i in seq_along(dfs)){
  dat <- get(dfs[i])
  if(ncol(dat)!=25){
      storage[i,1] <- dfs[i]
  } 
}

# Delete
todelete <- storage[,1]
rm(todelete)

预期结果：全局环境中仅保留 25 列的数据框实际结果：没有删除

非常感谢您的帮助！

标签： rdataframeenvironment-variables