我的R代码不是'；不会抛出任何错误，但它'；it’他没有做它想做的事'；应该是的

我的问题的一些背景：这是一个R脚本，以前的研究助理写的，但他没有为我自己使用它提供任何指导。在阅读完一本R教科书后，我尝试在数据文件中使用该代码

此代码要做的是加载多个.csv文件，从中删除某些项目/列，然后将新清理的.csv文件写入指定目录

当我运行我的代码时，我没有得到任何错误，但是代码没有任何进展。我原本以为这是文件权限的问题，但在更改它们之后，我仍然有这个问题。不知道下一步该做什么

代码如下：

library(data.table)
library(magrittr)
library(stringr)

# create a function to delete unnecessary variables from a CAFAS or PECFAS 
data set and save the reduced copy

del.items <- function(file)
{  
  data <- read.csv(input = paste0("../data/pecfas|cafas/raw", 
str_match(pattern = "cafas|pecfas", string = file) %>% tolower, "/raw/", 
file), sep = ",", header = TRUE, na.strings = "", stringsAsFactors = FALSE, 
skip = 0, colClasses = "character", data.table = FALSE)

  data <- data[-grep(pattern = "^(CA|PEC)FAS_E[0-9]+(T(Initial|[0-
9]+|Exit)|SP[a-z])_(G|S|Item)[0-9]+$", x = names(data))]

  write.csv(data, file = paste0("../data/pecfas|cafas/items-del", 
str_match(pattern = "cafas|pecfas", string = file) %>% tolower, "/items-
del/", sub(pattern = "ExportData_", x = file, replacement = "")) %>% 
tolower, sep = ",", row.names = FALSE, col.names = TRUE)
}

# delete items from all cafas data sets

cafas.files <- list.files("../data/cafas/raw/", pattern = ".csv")

for (file in cafas.files){
  del.items(file)
}

# delete items from all pecfas data sets

pecfas.files <- list.files("../data/pecfas/raw/", pattern = ".csv")

 for (file in pecfas.files){
  del.items(file)
}

库（data.table）
图书馆（magrittr）
图书馆（stringr）
#创建一个函数，从CAFAS或PECFA中删除不必要的变量
设置数据集并保存缩减的副本
删除项目%
tolower，sep=“，”，row.names=FALSE，col.names=TRUE）
}
#从所有cafas数据集中删除项目
cafas.files你说的“代码没有任何进展”是什么意思？没有创建任何文件吗？文件是否已创建但为空？文件不是空的，但没有清理吗？谢谢你这么快回复我。根本没有创建任何文件，我也不知道他们一开始是否在读取这些文件。我建议您仔细阅读代码，并尝试找出失败的地方。首先，运行语句，
cafas.files Write
file=cafas.files[1]
，然后逐步遍历
del.items
的行，即try
data%tolower，“/raw/”，file），sep=“，”，header=TRUE，na.strings=“”，stringsAsFactors=FALSE，skip=0，colClasses=“character”，data.table=FALSE）
这样行吗？
data
中的任何内容都将继续查看失败的地方。提示：在
read.csv
和
write.csv
之前，清除那些
input=paste0（…）%%>%tolower
和
print
语句，并使用
print
语句查看这些存在物。你的意思是什么“代码没有任何作用" ? 没有创建任何文件吗？文件是否已创建但为空？文件不是空的，但没有清理吗？谢谢你这么快回复我。根本没有创建任何文件，我也不知道他们一开始是否在读取这些文件。我建议您仔细阅读代码，并尝试找出失败的地方。首先，运行语句，
cafas.files Write
file=cafas.files[1]
，然后逐步遍历
del.items
的行，即try
data%tolower，“/raw/”，file），sep=“，”，header=TRUE，na.strings=“”，stringsAsFactors=FALSE，skip=0，colClasses=“character”，data.table=FALSE）
这样行吗？
数据中的任何内容都将继续查看失败的地方。提示：在
读取.csv
和
写入.csv
之前，清除那些
输入=粘贴0（…）%%>%tolower
和
文件=粘贴0（…）%%>%tolower
，并使用
打印
语句查看这些存在的内容。