R语言设置工作目录为桌面-setwd()

背景：将R代码复制给别人时，总是要先修改工作目录，于是想能不能有一个更为直接的方式。遂有此文！
# 手动设置
在Rstudio中菜单栏Session-Set Working Directory-Choose Directory-Desktop
# 快捷键设置
Ctrl+Shift+H-Desktop


# 获取桌面的路径
# 使用函数Sys.getenv()
# method-1
file.path(Sys.getenv('USERPROFILE'),'Desktop')
# method-2
file.path(Sys.getenv('USERPROFILE'),'Desktop',fsep='\\')
# setwd()-路径获取&目录设置
my_wd <- fi