我遇到的唯一解决方案是使用正则表达式并递归替换第一个目录,直到您得到不带斜杠的单词为止。
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
还有什么更优雅的吗? (更便携吗?)
最佳答案
您的示例代码对我不起作用,但是您可能正在寻找basename
或dirname
:
> getwd()
[1] "C:/cvswork/data"
> basename(getwd())
[1] "data"
> dirname(getwd())
[1] "C:/cvswork"