将驱动器卷名读入R

Question

我正在尝试根据驱动器卷名称/标签在R中执行任务，但是，我无法弄清楚如何将驱动器标签作为变量读取。我不是在寻找像C：这样的字母。我需要安装驱动器的实际名称，“Bills Computer”。任何想法???

谢谢，

Answer 1

如果你在Windows上，这样的事情应该有效：

shell("vol C:", intern = TRUE)

之后，您可以从输出字符串中解析卷名：

s <- shell("vol C:", intern = TRUE)[1]
substring(s, regexpr('is', s) + 3)