执行系统指令：小如麻雀的函数

再给大家介绍一下yulab.utils包中的一个小函数。小到只有几行，但是非常方便。

首先安装包是：

install.packages('yulab.utils')

装好之后，加载：

library(yulab.utils)

然后就可以使用了，这次给大家介绍的是exec()函数，它能够运行系统命令。假设你在使用R的时候，想跑一下命令行程序，切换终端总是有点不爽是吧？那么你就可以在R里面运行它，这个不难，用system()指令。exec()也是调用一句system()来干这活。但我给它搞得稍微方便一点，仅此而已。

使用就是把指令传给它，比如用ls列出文件，输出会直接打印出来：

> exec('ls -l')
total 32
-rw-r--r-- 1 HUAWEI HUAWEI 1157 Oct  6 10:34 DESCRIPTION
-rw-r--r-- 1 HUAWEI HUAWEI  953 Jun 20 10:26 Makefile
-rw-r--r-- 1 HUAWEI HUAWEI 1562 Aug  5 16:05 NAMESPACE
-rw-r--r-- 1 HUAWEI HUAWEI 4054 Oct  6 10:35 NEWS.md
drwxr-xr-x 1 HUAWEI HUAWEI    0 Oct  6 10:32 R
-rw-r--r-- 1 HUAWEI HUAWEI 1631 Jun  5 15:53 README.Rmd
-rw-r--r-- 1 HUAWEI HUAWEI 1854 Jun  5 15:53 README.md
drwxr-xr-x 1 HUAWEI HUAWEI    0 Sep 13 14:23 inst
drwxr-xr-x 1 HUAWEI HUAWEI    0 Sep 13 14:23 man

如果我想把输出存起来呢？因为我可能从输出中抽取出想要的信息，直接赋值就好了：

x <- exec('ls -l')

每一行输出是一个字符串：

> x[1]
[1] "total 32"
> x[2]
[1] "-rw-r--r-- 1 HUAWEI HUAWEI 1157 Oct  6 10:34 DESCRIPTION"
> x[3]
[1] "-rw-r--r-- 1 HUAWEI HUAWEI  953 Jun 20 10:26 Makefile"

那么我就可以用正则表达式去抽取结果了，比如我想把修改文件的时间拿出来：

sub(".*(\\w{3}\\s+\\d{1-2}).*", "\\1", x[-1])
[1] "Oct  6" "Jun 2"  "Aug  5" "Oct  6" "Oct  6" "Jun  5" "Jun  5" "Sep 1"
[9] "Sep 1"

当然另一种做法是我把结果给整理了，变成格式化的输出，然后想要啥就直接拿啥，比如当前这个例子，显然就可以用空白来分割出字段，让我们试试：

> strsplit(x[2:3], "\\s+")
[[1]]
[1] "-rw-r--r--"  "1"           "HUAWEI"      "HUAWEI"      "1157"
[6] "Oct"         "6"           "10:34"       "DESCRIPTION"

[[2]]
[1] "-rw-r--r--" "1"          "HUAWEI"     "HUAWEI"     "953"
[6] "Jun"        "20"         "10:26"      "Makefile"

那么全部一起上，再规整一下，下面这个直接就是输出一个矩阵了，想要啥，直接就是下标去取了。

> strsplit(x[-1], "\\s+") |> rbindlist()
      [,1]         [,2] [,3]     [,4]     [,5]   [,6]  [,7] [,8]
 [1,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "1157" "Oct" "6"  "10:34"
 [2,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "953"  "Jun" "20" "10:26"
 [3,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "1562" "Aug" "5"  "16:05"
 [4,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "4054" "Oct" "6"  "10:35"
 [5,] "drwxr-xr-x" "1"  "HUAWEI" "HUAWEI" "0"    "Oct" "6"  "10:32"
 [6,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "1631" "Jun" "5"  "15:53"
 [7,] "-rw-r--r--" "1"  "HUAWEI" "HUAWEI" "1854" "Jun" "5"  "15:53"
 [8,] "drwxr-xr-x" "1"  "HUAWEI" "HUAWEI" "0"    "Sep" "13" "14:23"
 [9,] "drwxr-xr-x" "1"  "HUAWEI" "HUAWEI" "0"    "Sep" "13" "14:23"
      [,9]
 [1,] "DESCRIPTION"
 [2,] "Makefile"
 [3,] "NAMESPACE"
 [4,] "NEWS.md"
 [5,] "R"
 [6,] "README.Rmd"
 [7,] "README.md"
 [8,] "inst"
 [9,] "man"