读取驱动器卷名到R

Question

我试图根据驱动器卷名称/标签在R中执行任务，但是，我不知道如何读取驱动器标签作为变量。我不是在找像C这样的字母。我需要挂载驱动器的真实名称，比尔斯电脑。有什么想法?

谢谢,

Answer 1

如果你使用的是Windows操作系统，像这样的代码应该可以工作:

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

之后，可以从输出字符串中解析卷名，如下所示:

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