R語(yǔ)言-文件和文件夾操作

R語(yǔ)言_文件和文件夾操作ZW2024-03-07文件操作函數(shù)file.choose()&choose.files()函數(shù)運(yùn)行后，用戶可以在彈出的對(duì)話框選擇「一個(gè)」文件（夾）。該函數(shù)不需要設(shè)置參數(shù)，打開的文件頁(yè)面為當(dāng)前工作路徑。choose.files()函數(shù)允許用戶可以一次選中多個(gè)文件（夾）。選擇一個(gè)后，按電腦「Ctrl」鍵可繼續(xù)選擇。file.choose()path=file.choose()choose.files(default="",caption="Selectfiles",multi=TRUE,filters=Filters,index=nrow(Filters))default：對(duì)話框剛打開時(shí)，「文件名」框內(nèi)所顯示的文件名，默認(rèn)為無(wú)；caption：對(duì)話框標(biāo)題，在左上角顯示；multi：是否允許多選；默認(rèn)為TRUE；filters：文件篩選選項(xiàng)，即出現(xiàn)在對(duì)話框最下方「文件類型」框中的內(nèi)容；可選項(xiàng)使用數(shù)組變量Filters儲(chǔ)存；index：對(duì)話框剛打開時(shí)「文件類型」顯示內(nèi)容為語(yǔ)句Filters[index,1]的輸出結(jié)果。文件夾操作dir.create("新建文件夾")file.copy(files,"新建文件夾")dir.exists("新建文件夾")file.rename("新建文件夾","我的文件夾")unlink("我的文件夾",recursive=TRUE)dir.create()：在指定路徑創(chuàng)建文件夾；file.copy()：將一些文件復(fù)制到指定的文件夾內(nèi)；file.rename()：重命名文件夾；dir.exists()：判斷文件夾路徑是否存在；輸出結(jié)果為邏輯變量；unlink(folder,recursive=TRUE)：刪除指定文件夾。文件操作file.create()：創(chuàng)建文件；file.copy()：將一些文件復(fù)制到指定的文件夾內(nèi)；list.files():查看指定文件夾下的所有文件和文件夾；dir():查看當(dāng)前目錄下的所有文件和文件夾；file.rename()：重命名文件夾；file.exists()：判斷文件夾路徑是否存在；輸出結(jié)果為邏輯變量；unlink()：刪除指定文件夾；fileSnapshot():查看文件夾內(nèi)的文件屬性；()：查看文件屬性;file.create("new_file_0711.txt")file.copy(from="code0624.R",to="all_stickes_0710")#可以將一個(gè)R文件復(fù)制到另外一個(gè)文件夾中，注意的是file.copy的第一個(gè)參數(shù)是文件名字或者文件夾名字，#to代表目標(biāo)文件夾。file.copy(from="allexceldata",to="all_stickes_0710",recursive=TRUE)#第一個(gè)from是一個(gè)文件夾的位置，to是代表目標(biāo)文件夾，recursive這個(gè)參數(shù)一定要設(shè)置為TRUE。#這樣才能保證allexceldata整個(gè)文件夾（文件夾和文件夾內(nèi)的內(nèi)容）都復(fù)制到目標(biāo)文件夾中。list.files(path="all_stickes_0710",s=TRUE,recursive=TRUE)#我們就可以查看all_stickes_0710文件夾中的所有文件內(nèi)容，#但是一般來(lái)說(shuō)我們是不指定s和recursive這兩個(gè)參數(shù)的，#s可以將這個(gè)文件夾中所有文件的相對(duì)路徑都展示出來(lái)，#recursive參數(shù)會(huì)將這個(gè)文件夾所有二級(jí)、三級(jí)等所有文件夾中的內(nèi)容都展開list.files(path="all_stickes_0710",s=TRUE,recursive=TRUE,pattern='.xlsx')#這樣做就可以將這個(gè)文件夾中所有以xlsx結(jié)尾的文件的相對(duì)路徑都匹配上。file.exists('c/data/test.xlsx')unlink('source_teat.R')dir()#同下list.files(path=here::here())list.files(path=here::here(),s=TRUE,recursive=TRUE)fileSnapshot(s=TRUE)$info#is