1、文件查看
#列出當前工作目錄下所有的文件和文件夾 list.files() #列出當前工作目錄下所有的文件，包含子目錄文件 list.files(recursive = TRUE) #列出當前工作目錄下所有.R結尾的文件 list.files(pattern = "*.R") dir(pattern = "*.R") #列出當前工作目錄下所有子目錄，默認的recursive = TRUE list.dirs()
2、路徑操作
#在當前工作目錄下創建文件夾testfolder dir.create(file.path(getwd(), 'testfolder')) #默認的recursive為FALSE，創建子目錄失敗 dir.create(file.path(getwd(), 'testfolder2', 'subfolder'))
#文件夾不存在返回FALSE dir.exists(file.path(getwd(), 'testfolder2', 'subfolder')) #設置recursive為TRUE，創建子目錄 dir.create(file.path(getwd(), 'testfolder2', 'subfolder'), recursive = TRUE) #創建成功返回TRUE dir.exists(file.path(getwd(), 'testfolder2', 'subfolder'))
3、文件處理
#文件不存在則創建文件，存在則覆蓋之前的文件 file.create('cretestfile.txt')
#判斷文件是否存在，返回TRUE file.exists('cretestfile.txt')
#默認mode = 0判斷文件是否存在，存在返回0 file.access('cretestfile.txt')
#刪除文件cretestfile.txt，文件不存在會返回warning信息 file.remove('cretestfile.txt') #讀取bin目錄下所有文件及目錄 d <- dir(file.path(R.home(), "bin"))
#讀取bin目錄下所有文件及目錄(包含全路徑) df <- dir(file.path(R.home(), "bin"), full.names = TRUE) #列出所有存在的文件 d[file.access(df, 0) == 0] #列出所有可執行文件 d[file.access(df, 1) == 0] #列出所有可寫文件 d[file.access(df, 2) == 0] #列出所有可讀文件 d[file.access(df, 4) == 0] #創建並寫入數據到文件A.txt和B.txt cat("file A\n", file = "A.txt") cat("file B\n", file = "B.txt") cat("file C\n", file = "C.txt") #添加文件C.txt的內容到A.txt和B.txt file.append(c("A.txt", "B.txt"), "C.txt") #修改文件名C.txt為D.txt file.rename("C.txt", "D.txt") #復制D.txt中的內容10遍，添加到文件A.txt和B.txt各5次 file.append(c("A.txt", "B.txt"), rep("D.txt", 10)) #讀取文件A.txt和B.txt的內容 file.show(c("A.txt", "B.txt")) #復制文件D.txt到C.txt file.copy("D.txt", "C.txt") #C.txt已存在，設置overwrite = TRUE進行覆蓋 file.copy("D.txt", "C.txt", overwrite = TRUE) #新建tmp文件夾，並拷貝A.txt和B.txt到tmp文件夾下 dir.create("tmp") file.copy(c("A.txt", "B.txt"), "tmp") #刪除tmp文件夾 unlink("tmp", recursive = TRUE) #刪除文件 unlink(c("A.txt", "B.txt", "C.txt","D.txt"))