R语言怎么获取当前文件所在文件夹

## --------------------------- System Setting Start ---------------------------
## 01. Choose Directory AND Set As Working Directory
WorkingDirectory <- choose.dir()
setwd(WorkingDirectory)
## FilePath <- file.choose(WorkingDirectory)
## FilePath <- file.choose(getwd())
## dir(getwd())
## 02. loading R Script and input data
source("MyRCode.R")
rawData <- read.csv(file.choose(getwd()), header = F, sep = ',')
## 03. Record Current Date Time
DateTime <- format(Sys.time(), "%Y-%m-%d %H-%M-%S")
## --------------------------- System Setting Ended ---------------------------

## -------------------------- File Name Module Start --------------------------
# get the file name from the choosen file
FilePath <- file.choose(WorkingDirectory)
# [1] "F:\\JMP-DOE-Statistics\\Statistics-R\\Code_Data_Notes\\
# Chapter01-Code_Answer_Notes.r"
# Split File Path 2 List By 2 Backslash \\
FilePathList <- strsplit(FilePath,"\\\\")
# get the number of elements from list File Path List
FilePathListLength <- length(FilePathList[[1]])
# get the last element that is the file name
FileName <- FilePathList[[1]][FilePathListLength]
sprintf("The File Name is: ")
sprintf("%s", FileName)

## -------------------------- File Name Module Ended --------------------------

#我这样做的
previousWorkPath = setwd(choose.dir())  #选择你的文件所在的目录，如果事先知道路径也可以把choose.dir()改为绝对路径值

#这里写你的代码
#...
#代码结束
setwd(previousWorkPath )

1. this.dir <- dirname(parent.frame(2)$ofile)
   
2. setwd(this.dir)

复制代码

我只能说，写的人好牛啊

jonwei 发表于 2015-8-30 17:38
我只能说，写的人好牛啊

能否解释下，这个运行有错误哦

都是牛人，学习了

setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
切记路径中不能有中文字符！
RStudio中设置当前源文件目录作为工作目录

RStudio中设置当前源文件目录作为工作目录为工作目录
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
切记路径中不能有中文字符！

xiangxing98 发表于 2019-11-17 15:07
RStudio中设置当前源文件目录作为工作目录为工作目录
setwd(dirname(rstudioapi::getActiveDocumentContex ...

亲测mac可用，路径中有中文字符也可正常运行！