Question

是否有人知道是否可以派生R程序的文件名/文件路径？我正在寻找类似于＆＃34;％sysfunc（GetOption（SYSIN））＆＃34;在SAS中将返回SAS程序的文件路径（以批处理模式运行）。我可以在R做任何类似的事情吗？

到目前为止，我能够提出的最好的方法是使用我使用的文本编辑器（PSPad）中的快捷键添加文件名和当前目录。有更简单的方法吗？

这是我的榜样：

progname<-"Iris data listing"

# You must use either double-backslashes or forward slashes in pathnames
progdir<-"F:\\R Programming\\Word output\\"
# Set the working directory to the program location
setwd(progdir)

# Make the ReporteRs package available for creating Word output
library(ReporteRs)
# Load the "Iris" provided with R
data("iris")

options('ReporteRs-fontsize'=8, 'ReporteRs-default-font'='Arial')

# Initialize the Word output object
doc <- docx()
# Add a title
doc <- addTitle(doc,"A sample listing",level=1)

# Create a nicely formatted listing, style similar to Journal
listing<-vanilla.table(iris)

# Add the listing to the Word output
doc <- addFlexTable(doc, listing)

# Create the Word output file
writeDoc( doc, file = paste0(progdir,progname,".docx"))

这在批处理和RStudio中都运行良好。我真的很欣赏一个更好的解决方案

Answer 1

@Juan Bosco提供的Rscript: Determine path of the executing script链接包含了我需要的大部分信息。它没有解决的一个问题是在RStudio中运行R程序（在RStudio中采购并进行了讨论和解决）。我发现可以使用rstudioapi::getActiveDocumentContext()$path)处理此问题。

还值得注意的是，批处理模式的解决方案无法使用

Rterm.exe --no-restore --no-save < %1 > %1.out 2>&1

解决方案要求使用--file=选项，例如

D:\R\R-3.3.2\bin\x64\Rterm.exe --no-restore --no-save --file="%~1.R" > "%~1.out" 2>&1 R_LIBS=D:/R/library

以下是@aprstar发布的get_script_path函数的新版本。这已被修改为也适用于RStudio（请注意，它需要rstudioapi库。

# Based on "get_script_path" function by aprstar, Aug 14 '15 at 18:46
# https://stackoverflow.com/questions/1815606/rscript-determine-path-of-the-executing-script
# That solution didn't work for programs executed directly in RStudio
# Requires the rstudioapi package
# Assumes programs executed in batch have used the "--file=" option
GetProgramPath <- function() {
    cmdArgs = commandArgs(trailingOnly = FALSE)
    needle = "--file="
    match = grep(needle, cmdArgs)
    if (cmdArgs[1] == "RStudio") {
        # An interactive session in RStudio
        # Requires rstudioapi::getActiveDocumentContext
        return(normalizePath(rstudioapi::getActiveDocumentContext()$path))
    }
    else if (length(match) > 0) {
        # Batch mode using Rscript or rterm.exe with the "--file=" option
        return(normalizePath(sub(needle, "", cmdArgs[match])))
    } 
    else {
        ls_vars = ls(sys.frames()[[1]])
        if ("fileName" %in% ls_vars) {
            # Source'd via RStudio
            return(normalizePath(sys.frames()[[1]]$fileName)) 
        }
        else {
            # Source'd via R console
            return(normalizePath(sys.frames()[[1]]$ofile))
        }
    }
}

我把它放在我的.Rprofile文件中。现在，我可以使用以下代码以批处理模式或RStudio中获取文件信息。我没有尝试使用source()，但这也应该有用。

# "GetProgramPath()" returns the full path name of the file being executed  
progpath<-GetProgramPath()
# Get the filename without the ".R" extension
progname<-tools::file_path_sans_ext(basename(progpath))
# Get the file directory
progdir<-dirname(progpath)   
# Set the working directory to the program location
setwd(progdir)

在R程序中使用文件名或文件路径

1 个答案: