20

我遇到的唯一解决方案是使用正则表达式并递归替换第一个目录,直到你得到一个没有斜杠的单词。

gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))

有什么稍微优雅一点的吗?(更便携?)

4

2 回答 2

43

您的示例代码对我不起作用,但您可能正在寻找basenameor dirname

> getwd()
[1] "C:/cvswork/data"
> basename(getwd())
[1] "data"
> dirname(getwd())
[1] "C:/cvswork"
于 2011-04-26T22:01:48.823 回答
7

如果你不知道basename(我也不知道),你可以使用这个:

tail(strsplit(getwd(), "/")[[1]], 1)
于 2011-04-26T22:43:14.653 回答