Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我遇到的唯一解决方案是使用正则表达式并递归替换第一个目录,直到你得到一个没有斜杠的单词。
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
有什么稍微优雅一点的吗?(更便携?)
您的示例代码对我不起作用,但您可能正在寻找basenameor dirname:
basename
dirname
> getwd() [1] "C:/cvswork/data" > basename(getwd()) [1] "data" > dirname(getwd()) [1] "C:/cvswork"
如果你不知道basename(我也不知道),你可以使用这个:
tail(strsplit(getwd(), "/")[[1]], 1)