file.info
file.create
dir.create
file.copy
if(!dir.exists("Result_Dir")){
dir.create("Result_Dir")
}
setwd("Result_Dir")
# Folder _ 2
dir.create("2_test", showWarnings = TRUE, recursive = FALSE)
if(file.exists("Result.xls")){
file.rename("Result.xls", "2_test/Result.xls" )
}
# Folder _ 3
dir.create("4_test/T3_results", showWarnings = TRUE, recursive = TRUE)
参考:
http://astrostatistics.psu.edu/su07/R/html/base/html/files.html
http://stackoverflow.com/questions/10266963/moving-files-between-folders
http://r.789695.n4.nabble.com/copy-directory-command-td881914.html
http://r.789695.n4.nabble.com/copyING-directories-and-files-td960879.html
> list.files(".")
[1] "R_plot" "R_test"
[3] "result_Annotation.xls" "Rg"
[5] "sample.ped" "sample.ped.LD"
[7] "sample.ped.LD.PNG" "Tree_plot.txt"
[9] "Youku Files" "T_T.py"
> file.info("Tree_plot.txt")$isdir
[1] FALSE
> !isTRUE(file.info("Tree_AT")$isdir)
[1] TRUE
> file.info("Tree_AT")$isdir
转载于:https://blog.51cto.com/matrix6ro/1904021