【发布时间】:2014-01-30 13:54:13
【问题描述】:
重命名功能不起作用,我尝试了以下方法
for (i in 1:length(file_list))
{
dest=paste("D:/R/Hr/New1",file_list[i],sep="/")
exe <- "C:\\Program Files\\xpdfbin-win-3.03\\bin32\\pdftotext.exe"
system(paste("\"", exe, "\" \"", dest, "\"", sep = ""), wait = F)
filetxt <- sub(".pdf", ".txt", dest)
fdest=paste("D:/R/Hr/New2/",file_list[i],sep="")
fdest <- sub(".pdf", ".txt",fdest)
#my.file.rename(filetxt,fdest)
file.rename(filetxt,fdest)
}
但没有一个文件重命名,虽然没有循环它工作正常
i=1
> dest=paste("D:/R/Hr/New1",file_list[i],sep="/")
> exe <- "C:\\Program Files\\xpdfbin-win-3.03\\bin32\\pdftotext.exe"
> system(paste("\"", exe, "\" \"", dest, "\"", sep = ""), wait = F)
> filetxt <- sub(".pdf", ".txt", dest)
> fdest=paste("D:/R/Hr/New2/",file_list[i],sep="")
> fdest <- sub(".pdf", ".txt",fdest)
> #my.file.rename(filetxt,fdest)
> file.rename(filetxt,fdest)
[1] TRUE
只是不明白为什么会出现这个问题,我怎样才能摆脱这个问题,以及与此功能相同的 o/p 也
my.file.rename <- function(from, to) {
todir <- dirname(to)
if (!isTRUE(file.info(todir)$isdir)) dir.create(todir, recursive=TRUE)
file.rename(from = from, to = to)
}
为什么我没有在 for 循环中被重命名,任何帮助,谢谢
【问题讨论】:
标签: r for-loop rename file-rename