从 R 中的命令捕获输出

Question

我正在尝试使用 R 中的

seewave

包来计算音频文件的持续时间，该包向名为

sox.

的音频软件程序发送命令，虽然持续时间打印在我的 R 控制台中，但似乎没有办法捕获以秒为单位的输出时间。

我在 R 中运行了以下命令，其中

flac

是我的 flac 文件的路径：

seewave::sox(stringr::str_glue("--i -D {flac}"), path2exe = "C:/Program Files (x86)/sox-14-4-2")

这将打印音频文件的持续时间，以及后面的 0：

3600.384000

[1] 0

我尝试使用

sink()

、

capture.output()

等捕获输出，但我只能捕获打印的“0”，而不能捕获音频文件的持续时间。

Answer 1

这有效：

一个<- system('soxi -D input.flac', intern = TRUE)
打印（一）