output_dir <- choose.dir(default = "D:\\output_dir", caption = "选择导出文件的文件夹目录"

求指教：怎么把这句应用于Macbook系统？谢谢！