【发布时间】:2011-08-13 09:45:20
【问题描述】:
我遇到的唯一解决方案是使用正则表达式并递归替换第一个目录,直到你得到一个没有斜杠的单词。
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
还有什么更优雅的吗? (并且更便携?)
【问题讨论】:
我遇到的唯一解决方案是使用正则表达式并递归替换第一个目录,直到你得到一个没有斜杠的单词。
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
还有什么更优雅的吗? (并且更便携?)
【问题讨论】:
您的示例代码不适用于我,但您可能正在寻找 basename 或 dirname:
> getwd()
[1] "C:/cvswork/data"
> basename(getwd())
[1] "data"
> dirname(getwd())
[1] "C:/cvswork"
【讨论】:
如果你不知道basename(我也不知道),你可以使用这个:
tail(strsplit(getwd(), "/")[[1]], 1)
【讨论】: