使用：

dir <- dirname(file.choose())

我看到一个窗口，从/home开始，无法向上移动以选择安装在/media上的外部驱动器：

有办法解决吗？