blocks|key|1174304|text|使用source("yourfile.R",+chdir+=+T)|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1174305|entityMap^0|2|V|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

Use <code>source("yourfile.R", chdir = T)</code>

blocks|key|960093|text|这对我来说很有效：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|960094|getSrcDirectory(function(x)+{x})|code-block|syntax|javascript|960095|这将在脚本中定义一个匿名函数(不执行任何操作)，然后确定该函数的源目录，即脚本所在的目录。|960096|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

This works for me:

<pre><code>getSrcDirectory(function(x) {x})
</code></pre>

This defines an anonymous function (that does nothing) inside the script, and then determines the source directory of that function, which is the directory where the script is.

blocks|key|959981|text|如果您将代码包装在包中，则始终可以查询包目录的某些部分。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|959982|下面是RGtk2包中的一个示例：|959983|>+system.file("ui",+"demo.ui",+package="RGtk2")
[1]+"C:/opt/R/library/RGtk2/ui/demo.ui"
>+|code-block|syntax|javascript|959984|您可以对源代码中的目录inst/glade/执行相同的操作，该目录将成为已安装软件包中的glade/目录--+system.file()将在安装时为您计算路径，而与操作系统无关。|offset|length|style|CODE|959985|entityMap^0|0|0|0|B|B|18|6|1J|D|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|S|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|T|8|@$K|U|L|V|M|N]|$K|W|L|X|M|N]|$K|Y|L|Z|M|N]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|10|8|@]|9|@]|A|$]]]|P|$]]

If you wrap your code in a package, you can always query parts of the package directory. 
Here is an example from the RGtk2 package:

<pre><code>&gt; system.file("ui", "demo.ui", package="RGtk2")
[1] "C:/opt/R/library/RGtk2/ui/demo.ui"
&gt; 
</code></pre>

You can do the same with a directory <code>inst/glade/</code> in your sources which will become a directory <code>glade/</code> in the installed package -- and <code>system.file()</code> will compute the path for you when installed, irrespective of the OS.

blocks|key|960053|text|这个答案对我来说很好：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|960054|script.dir+<-+dirname(sys.frame(1)$ofile)|code-block|syntax|javascript|960055|注意:必须获取脚本才能返回正确的路径|960056|我在https://support.rstudio.com/hc/communities/public/questions/200895567-can-user-obtain-the-path-of-current-Project-s-directory-中找到了它|offset|length|960057|但是我还是不明白什么是sys.frame(1)$ofile。我在R文档中没有找到任何关于这方面的东西。有人能解释一下吗？|960058|entityMap|0|LINK|mutability|MUTABLE|url|https://support.rstudio.com/hc/communities/public/questions/200895567-can-user-obtain-the-path-of-current-Project-s-directory-^0|0|0|0|2|3I|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Y|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|Z|8|@]|9|@$K|10|L|11|1|12]]|A|$]]|$1|M|3|N|5|6|7|13|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V]]]]

This answer works fine to me:

<pre><code>script.dir &lt;- dirname(sys.frame(1)$ofile)
</code></pre>

Note: script must be sourced in order to return correct path

I found it in: <a href="https://support.rstudio.com/hc/communities/public/questions/200895567-can-user-obtain-the-path-of-current-Project-s-directory-" rel="nofollow">https://support.rstudio.com/hc/communities/public/questions/200895567-can-user-obtain-the-path-of-current-Project-s-directory-</a>

But I still don´t understand what is sys.frame(1)$ofile. I didn´t find anything about that in R Documentation. Someone can explain it?

blocks|key|960098|text|#'+current+script+dir
#'+@param
#'+@return
#'+@examples
#'+works+with+source()+or+in+RStudio+Run+selection
#'+@export
z.csd+<-+function()+{
++++#+http://stackoverflow.com/questions/1815606/rscript-determine-path-of-the-executing-script
++++#+must+work+with+source()
++++if+(!is.null(res+<-+.thisfile_source()))+res
++++else+if+(!is.null(res+<-+.thisfile_rscript()))+dirname(res)
++++#+http://stackoverflow.com/a/35842176/2292993++
++++#+RStudio+only,+can+work+without+source()
++++else+dirname(rstudioapi::getActiveDocumentContext()$path)
}
#+Helper+functions
.thisfile_source+<-+function()+{
++++for+(i+in+-(1:sys.nframe()))+{
++++++++if+(identical(sys.function(i),+base::source))
++++++++++++return+(normalizePath(sys.frame(i)$ofile))
++++}

++++NULL
}
.thisfile_rscript+<-+function()+{
++++cmdArgs+<-+commandArgs(trailingOnly+=+FALSE)
++++cmdArgsTrailing+<-+commandArgs(trailingOnly+=+TRUE)
++++cmdArgs+<-+cmdArgs[seq.int(from=1,+length.out=length(cmdArgs)+-+length(cmdArgsTrailing))]
++++res+<-+gsub("%5E(?:--file=(.*)%7C.*)$",+"\\1",+cmdArgs)

++++#+If+multiple+--file+arguments+are+given,+R+uses+the+last+one
++++res+<-+tail(res[res+!=+""],+1)
++++if+(length(res)+>+0)
++++++++return+(res)

++++NULL
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|960099|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>#' current script dir
#' @param
#' @return
#' @examples
#' works with source() or in RStudio Run selection
#' @export
z.csd &lt;- function() {
 # http://stackoverflow.com/questions/1815606/rscript-determine-path-of-the-executing-script
 # must work with source()
 if (!is.null(res &lt;- .thisfile_source())) res
 else if (!is.null(res &lt;- .thisfile_rscript())) dirname(res)
 # http://stackoverflow.com/a/35842176/2292993 
 # RStudio only, can work without source()
 else dirname(rstudioapi::getActiveDocumentContext()$path)
}
# Helper functions
.thisfile_source &lt;- function() {
 for (i in -(1:sys.nframe())) {
 if (identical(sys.function(i), base::source))
 return (normalizePath(sys.frame(i)$ofile))
 }

 NULL
}
.thisfile_rscript &lt;- function() {
 cmdArgs &lt;- commandArgs(trailingOnly = FALSE)
 cmdArgsTrailing &lt;- commandArgs(trailingOnly = TRUE)
 cmdArgs &lt;- cmdArgs[seq.int(from=1, length.out=length(cmdArgs) - length(cmdArgsTrailing))]
 res &lt;- gsub("^(?:--file=(.*)|.*)$", "\\1", cmdArgs)

 # If multiple --file arguments are given, R uses the last one
 res &lt;- tail(res[res != ""], 1)
 if (length(res) &gt; 0)
 return (res)

 NULL
}
</code></pre>

blocks|key|1174566|text|这些解决方案中的许多都有好几年的历史了。虽然有些可能仍然有效，但有充分的理由反对使用它们中的每一个(参见下面的链接来源)。我有一个最好的解决方案(也来自源代码)：使用here库。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1174567|原始示例代码：|1174568|library(ggplot2)
setwd("/Users/jenny/cuddly_broccoli/verbose_funicular/foofy/data")
df+<-+read.delim("raw_foofy_data.csv")|code-block|syntax|javascript|1174569|修订后的代码|1174570|library(ggplot2)
library(here)

df+<-+read.delim(here("data",+"raw_foofy_data.csv"))|1174571|这个解决方案是最动态和最健壮的，因为无论您是使用命令行、RStudio，还是从R脚本调用等，它都能正常工作。|1174572|来源：https://www.tidyverse.org/articles/2017/12/workflow-vs-script/|1174573|entityMap|0|LINK|mutability|MUTABLE|url|https://www.tidyverse.org/articles/2017/12/workflow-vs-script/^0|2B|4|0|0|0|0|0|0|3|1Q|0|0^^$0|@$1|2|3|4|5|6|7|12|8|@$9|13|A|14|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|15|8|@]|D|@]|E|$]]|$1|H|3|I|5|J|7|16|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|17|8|@]|D|@]|E|$]]|$1|O|3|P|5|J|7|18|8|@]|D|@]|E|$K|L]]|$1|Q|3|R|5|6|7|19|8|@]|D|@]|E|$]]|$1|S|3|T|5|6|7|1A|8|@]|D|@$9|1B|A|1C|1|1D]]|E|$]]|$1|U|3|-4|5|6|7|1E|8|@]|D|@]|E|$]]]|V|$W|$5|X|Y|Z|E|$10|11]]]]

A lot of these solutions are several years old. While some may still work, there are good reasons against utilizing each of them (see linked source below). I have the best solution (also from source): use the <code>here</code> library.

Original example code:

<pre><code>library(ggplot2)
setwd("/Users/jenny/cuddly_broccoli/verbose_funicular/foofy/data")
df &lt;- read.delim("raw_foofy_data.csv")
</code></pre>

Revised code

<pre><code>library(ggplot2)
library(here)

df &lt;- read.delim(here("data", "raw_foofy_data.csv"))
</code></pre>

This solution is the most dynamic and robust because it works regardless of whether you are using the command line, RStudio, calling from an R script, etc. It is also extremely simple to use and is succinct.

Source: <a href="https://www.tidyverse.org/articles/2017/12/workflow-vs-script/" rel="nofollow noreferrer">https://www.tidyverse.org/articles/2017/12/workflow-vs-script/</a>

blocks|key|1174722|text|我发现了一些对我有用的东西。setwd(dirname(rstudioapi::getActiveDocumentContext()$path))|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1174723|entityMap^0|E|1N|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

I have found something that works for me.
<code>setwd(dirname(rstudioapi::getActiveDocumentContext()$path))</code>

blocks|key|1174439|text|使用system和shell命令怎么样？对于windows+one，我认为当您在RStudio中打开脚本时，它会将当前的shell目录设置为脚本所在的目录。您可能必须添加cd+C:\例如G或您想要搜索的任何驱动器(例如shell('dir+C:\*file_name+/s'，intern+=+TRUE)+-\以转义转义字符)。只适用于唯一命名的文件，除非您进一步指定子目录(对于Linux，我是从/开始搜索的)。在任何情况下，如果您知道如何在shell中查找某些内容，这将提供一个在R中查找它并返回目录的布局。无论你是采购还是运行脚本，都应该可以工作，但我还没有充分研究潜在的bug。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1174440|#Get+operating+system
OS<-Sys.info()
win<-length(grep("Windows",OS))
lin<-length(grep("Linux",OS))

#Find+path+of+data+directory
#Linux+Bash+Commands
if(lin==1){
++file_path<-system("find+/+-name+'file_name'",+intern+=+TRUE)
++data_directory<-gsub('/file_name',"",file_path)
}
#Windows+Command+Prompt+Commands
if(win==1){
++file_path<-shell('dir+file_name+/s',+intern+=+TRUE)
++file_path<-file_path[4]
++file_path<-gsub("+Directory+of+","",file_path)
++filepath<-gsub("\\\\","/",file_path)
++data_directory<-file_path
}

#Change+working+directory+to+location+of+data+and+sources++
setwd(data_directory)|code-block|syntax|javascript|1174441|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

How about using system and shell commands? With the windows one, I think when you open the script in RStudio it sets the current shell directory to the directory of the script. You might have to add cd C:\ e.g or whatever drive you want to search (e.g. shell('dir C:\\*file_name /s', intern = TRUE) - \\ to escape escape character). Will only work for uniquely named files unless you further specify subdirectories (for Linux I started searching from /). In any case, if you know how to find something in the shell, this provides a layout to find it within R and return the directory. Should work whether you are sourcing or running the script but I haven't fully explored the potential bugs.

<pre><code>#Get operating system
OS&lt;-Sys.info()
win&lt;-length(grep("Windows",OS))
lin&lt;-length(grep("Linux",OS))

#Find path of data directory
#Linux Bash Commands
if(lin==1){
 file_path&lt;-system("find / -name 'file_name'", intern = TRUE)
 data_directory&lt;-gsub('/file_name',"",file_path)
}
#Windows Command Prompt Commands
if(win==1){
 file_path&lt;-shell('dir file_name /s', intern = TRUE)
 file_path&lt;-file_path[4]
 file_path&lt;-gsub(" Directory of ","",file_path)
 filepath&lt;-gsub("\\\\","/",file_path)
 data_directory&lt;-file_path
}

#Change working directory to location of data and sources 
setwd(data_directory)
</code></pre>

blocks|key|960220|text|谢谢你的功能，尽管我不得不稍微调整一下，如下所示(W10)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|960221|#Windows+Command+Prompt+Commands
if(win==1){
++file_path<-shell('dir+file_name',+intern+=+TRUE)
++file_path<-file_path[4]
++file_path<-gsub("+Verzeichnis+von+","",file_path)
++file_path<-chartr("\\","/",file_path)
++data_directory<-file_path
}|code-block|syntax|javascript|960222|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Thank you for the function, though I had to adjust it a Little as following for me (W10):

<pre><code>#Windows Command Prompt Commands
if(win==1){
 file_path&lt;-shell('dir file_name', intern = TRUE)
 file_path&lt;-file_path[4]
 file_path&lt;-gsub(" Verzeichnis von ","",file_path)
 file_path&lt;-chartr("\\","/",file_path)
 data_directory&lt;-file_path
}
</code></pre>

blocks|key|1174632|text|在我的例子中，我需要一种复制执行文件的方法来备份原始脚本及其输出。这在研究中相对重要。当我在命令行上运行我的脚本时，我使用的是这里提供的其他解决方案的混合，看起来像这样：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1174633|library(scriptName)
file_dir+<-+gsub("\\",+"/",+fileSnapshot()$path,+fixed=TRUE)
file.copy(from+=+file.path(file_dir,+scriptName::current_filename())+,
++++++++++to+=+file.path(new_dir,+scriptName::current_filename()))|code-block|syntax|javascript|1174634|或者，可以将日期和我们的添加到文件名中，以帮助区分该文件和源文件，如下所示：|1174635|file.copy(from+=+file.path(current_dir,+current_filename())+,
++++++++++to+=+file.path(new_dir,+subDir,+paste0(current_filename(),"_",+Sys.time(),+".R")))|1174636|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

In my case, I needed a way to copy the executing file to back up the original script together with its outputs. This is relatively important in research. What worked for me while running my script on the command line, was a mixure of other solutions presented here, that looks like this:
<pre><code>library(scriptName)
file_dir &lt;- gsub(&quot;\\&quot;, &quot;/&quot;, fileSnapshot()$path, fixed=TRUE)
file.copy(from = file.path(file_dir, scriptName::current_filename()) ,
 to = file.path(new_dir, scriptName::current_filename()))
</code></pre>
Alternatively, one can add to the file name the date and our to help in distinguishing that file from the source like this:
<pre><code>file.copy(from = file.path(current_dir, current_filename()) ,
 to = file.path(new_dir, subDir, paste0(current_filename(),&quot;_&quot;, Sys.time(), &quot;.R&quot;)))
</code></pre>

blocks|key|1174700|text|我知道这个问题在这一点上是老问题，但我想回答，因为我做了一个包来处理这个问题。它名为"this.path“，可以在CRAN上使用，因此可以像任何其他包一样使用:+install.packages("this.path")进行安装|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1174701|当从RStudio、RGui、命令行//终端(Rscript)运行R以及使用'source‘时，它应该检索正在执行的脚本的文件名。|1174702|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

I know this question is old at this point, but I'd like to answer because I made a package to handle this problem. It's called &quot;this.path&quot; and it's available on CRAN so it can be installed like any other package using:
install.packages(&quot;this.path&quot;)
It should retrieve the executing script's filename when running R from RStudio, RGui, the command-line / / terminal (Rscript), and when using 'source'.

Is there a way to programmatically find the path of an R script inside the script itself?

I am asking this because I have several scripts that use <code>RGtk2</code> and load a GUI from a .glade file.

In these scripts I am obliged to put a <code>setwd("path/to/the/script")</code> instruction at the beginning, otherwise the .glade file (which is in the same directory) will not be found.

This is fine, but if I move the script in a different directory or to another computer I have to change the path. I know, it's not a big deal, but it would be nice to have something like:

<code>setwd(getScriptPath())</code>

So, does a similar function exist?

Getting path of an R script

Windows

Linux

有没有办法以编程方式找到R脚本本身内部的路径？我之所以这样问，是因为我有几个使用RGtk2并从.glade文件加载图形用户界面的脚本。在这些脚本中，我必须在开头放置一条setwd("path/to/the/script")指令，否则将找不到.glade文件(位于同一目录中)。这很好，但如果我将脚本移动到不同的目录或另一台计算机上，我必须更改路径。我知道，这不是什么大事，但如果能有这样的东西就好了：

问获取R脚本的路径
EN

回答 11

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问获取R脚本的路径EN

回答 11

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问获取R脚本的路径
EN