Question

如何更改R中文件的所有权？我想我可以使用system并直接针对字符串调用chown，但我想知道是否有更好的方法。

Answer 1

正如评论中已经提到的，函数Sys.chown()不存在。我写了一个功能，为我做的工作。与类型Sys.*的其他功能相比，此功能的缺点是chown需要sudo。将sudo与R system()一起使用不起作用，但this answer建议使用gksudo，这对我来说很合适。

所以这是函数定义：

Sys.chown <- function(paths, owner = NULL, group = NULL) {

   # create string for user:owner
   if (!is.null(group)) {
      og <- paste0(owner, ":", group)
   } else {
      og <- owner
   }

   # create string with files
   files <- paste(paths, collapse = " ")

   # run command
   system(paste("gksudo chown", og, files))

   invisible()
}

第一部分创建设置所有者和组的字符串，其格式应为owner:group。但是，可以省略这些参数中的一个或两个，并且函数会处理所有可能性。

接下来是将提供给paths的所有文件名放入单个字符串的部分。

最后，system()用于执行chown的实际调用。 gksudo将打开一个对话窗口并要求输入密码。不幸的是，每次都必须输入密码。

chown有几个有用的选项，Sys.chown()的更好实现应该可以处理其中的一些。

示例

system("ls -l") ## total 0 ## -rw-rw-r-- 1 user1 user1 0 Jan 21 19:32 test2.file ## -rw-rw-r-- 1 user1 user1 0 Jan 21 19:32 test.file Sys.chown("test.file", owner = "user2") Sys.chown("test2.file", group = "user2") system("ls -l") ## total 0 ## -rw-rw-r-- 1 user1 user2 0 Jan 21 19:32 test2.file ## -rw-rw-r-- 1 user2 user1 0 Jan 21 19:32 test.file Sys.chown("test.file", owner = "user1", group = "user2") system("ls -l") ## total 0 ## -rw-rw-r-- 1 user1 user2 0 Jan 21 19:32 test2.file ## -rw-rw-r-- 1 user1 user2 0 Jan 21 19:32 test.file Sys.chown(dir(), owner = "user1", group = "user1") system("ls -l") ## total 0 ## -rw-rw-r-- 1 user1 user1 0 Jan 21 19:32 test2.file ## -rw-rw-r-- 1 user1 user1 0 Jan 21 19:32 test.file

是否有R函数来更改文件所有权？

1 个答案: