从完整路径中仅在文件名之前提取文件夹名称

我具有以下路径

filePath <- "/data/folder1/subfolder1/foo.dat"

我想获得子文件夹1 foo.dat 找到。我看到过其他语言的解决方案，但在R中找不到。最简单的方法是什么？谢谢！

I'd like to get subfolder1 which is where foo.dat locates. I saw solutions in other languages but haven't found one in R. What is the simplest way to do it? Thank you!

我尝试了什么

> basename(filePath)
[1] "foo.dat"

> dirname(filePath)
[1] "/data/folder1/subfolder1"