R语言file.choose()无法访问/media下外部驱动器问题求助

• 方案1：临时切换工作目录到/media后调用函数
  先把R的工作目录切换到/media，再打开文件选择窗口，就能直接看到挂载的外部驱动器：

  setwd("/media")
  dir <- dirname(file.choose())
  

• 方案2：使用tcltk包的tk_choose.dir()函数（更灵活）
  这个函数支持直接指定起始目录，无需修改工作目录，R默认自带tcltk包：

  library(tcltk)
  dir <- tk_choose.dir(default = "/media", caption = "选择目标目录")
  

• 方案3：临时切换目录再恢复原工作目录
  如果不想改变当前工作目录，可以先保存原路径，操作完再切回去：

  original_wd <- getwd()
  setwd("/media")
  dir <- dirname(file.choose())
  setwd(original_wd)
  

内容的提问来源于stack exchange，提问作者user2955884