图文精华

About云-梭伦科技»专题 › 技术学习(版主发帖区) › 大数据学习 › 实操演练› 用R进行文件系统管理
分享

用R进行文件系统管理

52Pig 2014-11-4 23:15:06 发表于 实操演练 [显示全部楼层] 回帖奖励 阅读模式 关闭右栏 1 10483
本帖最后由 52Pig 于 2014-11-4 23:13 编辑
阅读导读：
1.R语言如何检查文件或目录是否存在？如何重命名一个文件？
2.R语言如何查看和修改目录的权限？
3.R语言如何删除一个文件？
4.用R语言管理一个文件系统时，都有哪些特殊的目录？
5.如何查看R软件指定包所在目录？




1. 文件系统介绍

计算机的文件系统是一种存储和组织计算机数据的方法，它使得对其访问和查找变得容易，文件系统使用文件和树形目录的抽象逻辑概念代替了硬盘和光盘等物理设备使用数据块的概念，用户使用文件系统来保存数据不必关心数据实际保存在硬盘（或者光盘）的地址为多少的数据块上，只需要记住这个文件的所属目录和文件名。在写入新数据之前，用户不必关心硬盘上的那个块地址没有被使用，硬盘上的存储空间管理（分配和释放）功能由文件系统自动完成，用户只需要记住数据被写入到了哪个文件中。

R语言和其他编程语言一样，都有对文件系统的操作，包括文件操作和目录操作，函数API都定义在base包中。

2. 目录操作

系统环境：
  • Linux: Ubuntu Server 12.04.2 LTS 64bit
  • R: 3.0.1 x86_64-pc-linux-gnu

2.1 查看目录

查看当前目录下的子目录。
  1. # 启动R程序

  2. ~ R

  3. 

  4. # 当前的目录

  5. > getwd()

  6. [1] "/home/conan/R/fs"

  7. 

  8. # 查看当前目录的子目录

  9. > list.dirs()

  10. [1] "."     "./tmp"
复制代码
查看当前目录的子目录和文件。
  1. > dir()

  2. [1] "readme.txt" "tmp"
复制代码
  1. <span style="background-color: rgb(255, 255, 255);"># 查看指定目录的子目录和文件。</span>
复制代码
  1. <span style="background-color: rgb(255, 255, 255);"># 只列出以字母R开头的子目录或文件</span>
复制代码
查看当前目录的子目录和文件，同dir()函数。
  1. > list.files()

  2. [1] "readme.txt" "tmp"

  3. 

  4. > list.files(".",all.files=TRUE)

  5. [1] "."          ".."         "readme.txt" "tmp"
复制代码
查看完整的目录信息。
  1. # 查看当前目录权限

  2. > file.info(".")

  3.   size isdir mode               mtime               ctime               atime  uid  gid uname grname

  4. . 4096  TRUE  775 2013-11-14 08:40:46 2013-11-14 08:40:46 2013-11-14 08:41:57 1000 1000 conan  conan

  5. 

  6. # 查看指定目录权限

  7. > file.info("./tmp")

  8.       size isdir mode               mtime               ctime               atime  uid  gid uname grname

  9. ./tmp 4096  TRUE  775 2013-11-14 14:35:56 2013-11-14 14:35:56 2013-11-14 14:35:56 1000 1000 conan  conan
复制代码
2.2 创建目录
  1. # 在当前目录下，新建一个目录

  2. > dir.create("create")

  3. > list.dirs()

  4. [1] "."        "./create" "./tmp"
复制代码
创建一个3级子目录./a1/b2/c3
  1. # 直接创建，出错

  2. > dir.create(path="a1/b2/c3")

  3. Warning message:

  4. In dir.create(path = "a1/b2/c3") :

  5.   cannot create dir 'a1/b2/c3', reason 'No such file or directory'

  6. 

  7. # 递归创建，成功

  8. > dir.create(path="a1/b2/c3",recursive = TRUE)

  9. > list.dirs()

  10. [1] "."          "./a1"       "./a1/b2"    "./a1/b2/c3" "./create"  "./tmp"
复制代码
  1. # 通过系统命令查看目录结构

  2. > system("tree")

  3. .

  4. ├── a1

  5. │   └── b2

  6. │       └── c3

  7. ├── create

  8. ├── readme.txt

  9. └── tmp
复制代码
2.3 检查目录是否存在
  1. # 目录存在

  2. > file.exists(".")

  3. [1] TRUE

  4. > file.exists("./a1/b2")

  5. [1] TRUE

  6. 

  7. # 目录不存在

  8. > file.exists("./aa")

  9. [1] FALSE
复制代码
2.4 检查目录的权限

检查目录的权限
  1. > df<-dir(full.names = TRUE)

  2. 

  3. # 检查文件或目录是否存在，mode=0

  4. > file.access(df, 0) == 0

  5. ./a1     ./create ./readme.txt        ./tmp

  6. TRUE         TRUE         TRUE         TRUE

  7. 

  8. # 检查文件或目录是否可执行，mode=1，目录为可以执行

  9. > file.access(df, 1) == 0

  10. ./a1     ./create ./readme.txt        ./tmp

  11. TRUE         TRUE        FALSE         TRUE

  12. 

  13. # 检查文件或目录是否可写，mode=2

  14. > file.access(df, 2) == 0

  15. ./a1     ./create ./readme.txt        ./tmp

  16. TRUE         TRUE         TRUE         TRUE

  17. 

  18. # 检查文件或目录是否可读，mode=4

  19. > file.access(df, 4) == 0

  20. ./a1     ./create ./readme.txt        ./tmp

  21. TRUE         TRUE         TRUE         TRUE
复制代码
修改目录权限。
  1. # 修改目录权限，所有用户只读

  2. > Sys.chmod("./create", mode = "0555", use_umask = TRUE)

  3. 

  4. # 查看目录完整信息，mode=555

  5. >  file.info("./create")

  6.          size isdir mode               mtime               ctime               atime  uid  gid uname grname

  7. ./create 4096  TRUE  555 2013-11-14 08:36:28 2013-11-14 09:07:05 2013-11-14 08:36:39 1000 1000 conan  conan

  8. 

  9. # create目录不可以写

  10. > file.access(df, 2) == 0

  11. ./a1     ./create ./readme.txt        ./tmp

  12. TRUE        FALSE         TRUE         TRUE
复制代码
2.5 对目录重名
  1. # 对tmp目录重命名

  2. > file.rename("tmp", "tmp2")

  3. [1] TRUE

  4. 

  5. # 查看目录

  6. > dir()

  7. [1] "a1"         "create"     "readme.txt" "tmp2"
复制代码
2.6 删除目录
  1. # 删除tmp2目录

  2. > unlink("tmp2", recursive = TRUE)

  3. 

  4. # 查看目录

  5. > dir()

  6. [1] "a1"         "create"     "readme.txt"
复制代码
2.7 其他功能函数

拼接目录字符串
  1. # 拼接目录字符串

  2. > file.path("p1","p2","p3")

  3. [1] "p1/p2/p3"

  4. 

  5. > dir(file.path("a1","b2"))

  6. [1] "c3"
复制代码
获取最底层的子目录名
  1. # 当前目录

  2. > getwd()

  3. [1] "/home/conan/R/fs"

  4. 

  5. # 最底层子目录

  6. > dirname("/home/conan/R/fs/readme.txt")

  7. [1] "/home/conan/R/fs"

  8. 

  9. # 最底层子目录或文件名

  10. > basename(getwd())

  11. [1] "fs"

  12. >  basename("/home/conan/R/fs/readme.txt")

  13. [1] "readme.txt"
复制代码
转换文件扩展路径
  1. # 转换~为用户目录

  2. > path.expand("~/foo")

  3. [1] "/home/conan/foo"
复制代码
标准化路径，用来转换win或linux的路径分隔符
  1. # linux

  2. > normalizePath(c(R.home(), tempdir()))

  3. [1] "/usr/lib/R"      "/tmp/RtmpqNyjPD"

  4. 

  5. # win

  6. > normalizePath(c(R.home(), tempdir()))

  7. [1] "C:\\Program Files\\R\\R-3.0.1"

  8. [2] "C:\\Users\\Administrator\\AppData\\Local\\Temp\\RtmpMtSnci"
复制代码
短路径，缩减路径的显示长度，只在win中运行。
  1. # win

  2. > shortPathName(c(R.home(), tempdir()))

  3. [1] "C:\\PROGRA~1\\R\\R-30~1.1"

  4. [2] "C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\RTMPMT~1"
复制代码
3. 文件操作

3.1 查看文件
  1. > dir()

  2. [1]  "create"  "readme.txt"

  3. 

  4. # 检查文件是否存在

  5. > file.exists("readme.txt")

  6. [1] TRUE

  7. 

  8. # 文件不存在

  9. > file.exists("readme.txt222")

  10. [1] FALSE

  11. 

  12. # 查看文件完整信息

  13. > file.info("readme.txt")

  14.            size isdir mode               mtime               ctime               atime  uid  gid uname grname

  15. readme.txt    7 FALSE  664 2013-11-14 08:24:50 2013-11-14 08:24:50 2013-11-14 08:24:50 1000 1000 conan  conan

  16. 

  17. # 查看文件访问权限，存在

  18. >  file.access("readme.txt",0)

  19. readme.txt

  20.          0

  21. # 不可执行

  22. >  file.access("readme.txt",1)

  23. readme.txt

  24.         -1

  25. # 可写

  26. >  file.access("readme.txt",2)

  27. readme.txt

  28.          0

  29. # 可读

  30. >  file.access("readme.txt",4)

  31. readme.txt

  32.          0

  33. 

  34. # 查看一个不存在的文件访问权限，不存在

  35. > file.access("readme.txt222")

  36. readme.txt222

  37.            -1
复制代码
判断是文件还是目录。
  1. # 判断是否是目录

  2. > file_test("-d", "readme.txt")

  3. [1] FALSE

  4. > file_test("-d", "create")

  5. [1] TRUE

  6. 

  7. # 判断是否是文件

  8. > file_test("-f", "readme.txt")

  9. [1] TRUE

  10. > file_test("-f", "create")

  11. [1] FALSE
复制代码
3.2 创建文件
  1. # 创建一个空文件 A.txt

  2. > file.create("A.txt")

  3. [1] TRUE

  4. 

  5. # 创建一个有内容的文件 B.txt

  6. > cat("file B\n", file = "B.txt")

  7. > dir()

  8. [1] "A.txt"      "B.txt"      "create"     "readme.txt"

  9. 

  10. # 打印A.txt

  11. > readLines("A.txt")

  12. character(0)

  13. 

  14. # 打印B.txt

  15. > readLines("B.txt")

  16. [1] "file B"
复制代码
把文件B.txt的内容，合并到 A.txt。
  1. # 合并文件

  2. > file.append("A.txt", rep("B.txt", 10))

  3.  [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE

  4. 

  5. # 查看文件内容

  6. > readLines("A.txt")

  7.  [1] "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B"
复制代码
把文件A.txt复制到文件C.txt
  1. # 复制文件

  2. > file.copy("A.txt", "C.txt")

  3. [1] TRUE

  4. 

  5. # 查看文件内容

  6. > readLines("C.txt")

  7.  [1] "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B" "file B"
复制代码
3.3 修改文件权限
  1. # 修改文件权限，创建者可读可写可执行，其他人无权限

  2. > Sys.chmod("A.txt", mode = "0700", use_umask = TRUE)

  3. 

  4. # 查看文件信息

  5. > file.info("A.txt")

  6.       size isdir mode               mtime               ctime               atime  uid  gid uname grname

  7. A.txt   70 FALSE  700 2013-11-14 12:55:18 2013-11-14 12:57:39 2013-11-14 12:55:26 1000 1000 conan  conan
复制代码
3.4 文件重命名
  1. # 给文件A.txt重命名为AA.txt

  2. > file.rename("A.txt","AA.txt")

  3. [1] TRUE

  4. > dir()

  5. [1] "AA.txt"     "B.txt"      "create"     "C.txt"      "readme.txt"
复制代码
3.5 硬连接和软连接

硬连接，指通过索引节点来进行连接。在Linux的文件系统中，保存在磁盘分区中的文件不管是什么类型都给它分配一个编号，称为索引节点号(Inode Index)。在Linux中，多个文件名指向同一索引节点是存在的。一般这种连接就是硬连接。硬连接的作用是允许一个文件拥有多个有效路径名，这样用户就可以建立硬连接到重要文件，以防止“误删”的功能。其原因如上所述，因为对应该目录的索引节点有一个以上的连接。只删除一个连接并不影响索引节点本身和其它的连接，只有当最后一个连接被删除后，文件的数据块及目录的连接才会被释放。也就是说，文件真正删除的条件是与之相关的所有硬连接文件均被删除。
软连接，也叫符号连接（Symbolic Link）。软链接文件有类似于Windows的快捷方式。它实际上是一个特殊的文件。在符号连接中，文件实际上是一个文本文件，其中包含的有另一文件的位置信息。
硬连接和软连接，只在Linux系统中使用。
  1. # 硬连接

  2. > file.link("readme.txt", "hard_link.txt")

  3. [1] TRUE

  4. 

  5. # 软连接

  6. > file.symlink("readme.txt", "soft_link.txt")

  7. [1] TRUE

  8. 

  9. # 查看文件目录

  10. > system("ls -l")

  11. -rwx------ 1 conan conan   70 Nov 14 12:55 AA.txt

  12. -rw-rw-r-- 1 conan conan    7 Nov 14 12:51 B.txt

  13. dr-xr-xr-x 2 conan conan 4096 Nov 14 08:36 create

  14. -rw-rw-r-- 1 conan conan   70 Nov 14 12:56 C.txt

  15. -rw-rw-r-- 2 conan conan    7 Nov 14 08:24 hard_link.txt

  16. -rw-rw-r-- 2 conan conan    7 Nov 14 08:24 readme.txt

  17. lrwxrwxrwx 1 conan conan   10 Nov 14 13:11 soft_link.txt -> readme.txt
复制代码
文件hard_link.txt是文件readme.txt硬连接文件，文件soft_link.txt是文件readme.txt软连接文件，

3.5 删除文件
有两个函数可以使用file.remove和unlink，其中unlink函数使用同删除目录操作是一样的。
  1. # 删除文件

  2. > file.remove("A.txt", "B.txt", "C.txt")

  3. [1] FALSE  TRUE  TRUE

  4. 

  5. # 删除文件

  6. > unlink("readme.txt")

  7. 

  8. # 查看目录文件

  9. > system("ls -l")

  10. total 12

  11. -rwx------ 1 conan conan   70 Nov 14 12:55 AA.txt

  12. dr-xr-xr-x 2 conan conan 4096 Nov 14 08:36 create

  13. -rw-rw-r-- 1 conan conan    7 Nov 14 08:24 hard_link.txt

  14. lrwxrwxrwx 1 conan conan   10 Nov 14 13:11 soft_link.txt -> readme.txt

  15. 

  16. # 打印硬连接文件

  17. > readLines("hard_link.txt")

  18. [1] "file A"

  19. 

  20. # 打印软连接文件，soft_link.txt，由于原文件被删除，有错误

  21. > readLines("soft_link.txt")

  22. Error in file(con, "r") : cannot open the connection

  23. In addition: Warning message:

  24. In file(con, "r") :

  25.   cannot open file 'soft_link.txt': No such file or directory
复制代码

4. 几个特殊的目录
R.home() 查看R软件的相关目录
.Library 查看R核心包的目录
.Library.site 查看R核心包的目录和root用户安装包目录
.libPaths() 查看R所有包的存放目录
system.file() 查看指定包所在的目录
4.1 R.home() 查看R软件的相关目录
  1. # 打印R软件安装目录

  2. > R.home()

  3. [1] "/usr/lib/R"

  4. 

  5. # 打印R软件bin的目录

  6. > R.home(component="bin")

  7. [1] "/usr/lib/R/bin"

  8. 

  9. # 打印R软件文件的目录

  10. >  R.home(component="doc")

  11. [1] "/usr/share/R/doc"

  12. 通过系统命令，找到R文件的位置。

  13. 

  14. 

  15. # 检查系统中R文件的位置

  16. ~ whereis R

  17. R: /usr/bin/R /etc/R /usr/lib/R /usr/bin/X11/R /usr/local/lib/R /usr/share/R /usr/share/man/man1/R.1.gz

  18. 

  19. # 打印环境变量R_HOME

  20. ~ echo $R_HOME

  21. /usr/lib/R

  22. 通过R.home()函数，我们可以很容易的定位R软件的目录。
复制代码
4.2 R软件的包目录
  1. # 打印核心包的目录

  2. > .Library

  3. [1] "/usr/lib/R/library"

  4. 

  5. # 打印核心包的目录和root用户安装包目录

  6. > .Library.site

  7. [1] "/usr/local/lib/R/site-library" "/usr/lib/R/site-library"

  8. [3] "/usr/lib/R/library"

  9. 

  10. # 打印所有包的存放目录

  11. > .libPaths()

  12. [1] "/home/conan/R/x86_64-pc-linux-gnu-library/3.0"

  13. [2] "/usr/local/lib/R/site-library"

  14. [3] "/usr/lib/R/site-library"

  15. [4] "/usr/lib/R/library"
复制代码
4.3 查看指定包所在的目录
  1. # base包的存放目录

  2. > system.file()

  3. [1] "/usr/lib/R/library/base"

  4. 

  5. # pryr包的存放目录

  6. >  system.file(package = "pryr")

  7. [1] "/home/conan/R/x86_64-pc-linux-gnu-library/3.0/pryr"
复制代码
其实，用R语言操作文件系统还是很方便的。但对于函数命名确实不太规范，需要我们花时间记忆。






回复

使用道具 举报

自定义广告语

已有(1)人评论

跳转到指定楼层
正序浏览
anyhuayong 发表于 2014-11-5 09:05:55
新手必备，好资源呀
回复

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

发表新帖
52Pig

中级会员

关注

  • 49

    主题

  • 57

    帖子

  • 16

    粉丝

TA的主题
关闭

推荐上一条 /2 下一条

关于我们· 联系我们· 加入我们· 小黑屋· 合作伙伴   

Copyright © 2001-2024 About云-梭伦科技 Powered by Discuz! X3.4 Licensed Discuz Team.

简书 / Smrz 京ICP备2020039040号 Wxb 简书网举报电话：021-34700000