एक आर स्क्रिप्ट का मार्ग प्राप्त करना

Question

क्या स्क्रिप्ट के अंदर प्रोग्रामिंग रूप से आर स्क्रिप्ट का पथ खोजने का कोई तरीका है?

मैं यह पूछ रहा हूं क्योंकि मेरे पास RGtk2 का उपयोग करने वाली कई स्क्रिप्ट हैं और एक .glade फ़ाइल से एक GUI लोड करें।

इन लिपियों में मुझे शुरुआत में setwd("path/to/the/script") निर्देश डालने के लिए बाध्य किया गया है, अन्यथा .glade फ़ाइल (जो एक ही निर्देशिका में है) नहीं मिलेगी।

यह ठीक है, लेकिन अगर मैं एक अलग निर्देशिका में या किसी अन्य कंप्यूटर में स्क्रिप्ट को स्थानांतरित करता हूं तो मुझे पथ बदलना होगा। मैं जानता हूँ कि, यह एक बड़ी बात नहीं है, लेकिन यह कुछ ऐसा है करने के लिए अच्छा होगा:

setwd(getScriptPath())

तो, एक समान कार्य मौजूद है?

Answer 1

उपयोग source("yourfile.R", chdir = T)

Answer 2

यदि आप अपने कोड को पैकेज में लपेटते हैं, तो आप हमेशा पैकेज निर्देशिका के कुछ हिस्सों से पूछ सकते हैं। - और system.file() आप के लिए पथ की गणना करेगा

> system.file("ui", "demo.ui", package="RGtk2") 
[1] "C:/opt/R/library/RGtk2/ui/demo.ui" 
> 

आप अपने स्रोतों में एक निर्देशिका inst/glade/ जो स्थापित पैकेज में एक निर्देशिका glade/ बन जाएगा के साथ भी ऐसा कर सकते हैं:
यहाँ RGtk2 पैकेज से एक उदाहरण है स्थापित होने पर, ओएस के बावजूद।

Answer 3

शोषण निहित "--file" Rscript का तर्क

जब "Rscript" का उपयोग स्क्रिप्ट बुला (Rscript doc) स्क्रिप्ट का पूरा पथ के लिए एक प्रणाली पैरामीटर के रूप में दिया जाता है । निम्नलिखित समारोह का शोषण करने वाली इस स्क्रिप्ट निर्देशिका को निकालने के लिए:

getScriptPath <- function(){ 
    cmd.args <- commandArgs() 
    m <- regexpr("(?<=^--file=).+", cmd.args, perl=TRUE) 
    script.dir <- dirname(regmatches(cmd.args, m)) 
    if(length(script.dir) == 0) stop("can't determine script dir: please call the script with Rscript") 
    if(length(script.dir) > 1) stop("can't determine script dir: more than one '--file' argument detected") 
    return(script.dir) 
} 

Answer 4

इस उत्तर मेरे लिए ठीक काम करता है:

script.dir <- dirname(sys.frame(1)$ofile) 

नोट: स्क्रिप्ट आदेश सही पथ

मैंने पाया वापस जाने के लिए के स्रोत वाली जाना चाहिए इसमें: https://support.rstudio.com/hc/communities/public/questions/200895567-can-user-obtain-the-path-of-current-Project-s-directory-

लेकिन मुझे अभी भी समझ में नहीं आता कि sys.frame (1) $ शौचालय क्या है। मुझे आर दस्तावेज़ीकरण में इसके बारे में कुछ भी नहीं मिला। कोई इसे समझा सकता है?

Answer 5

यह मेरे लिए काम करता है:

getSrcDirectory(function(x) {x}) 

ऐसा अनाम समारोह (कि कुछ नहीं करता है) स्क्रिप्ट के अंदर परिभाषित करता है, और फिर उस समारोह है, जो निर्देशिका है जहाँ स्क्रिप्ट है के स्रोत निर्देशिका निर्धारित करता है।

Answer 6

RStudio केवल के लिए:

setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) 

यह काम करता है जब भागो निंग या स्रोत अपनी फ़ाइल ing।

Answer 7

#' 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("^(?:--file=(.*)|.*)$", "\\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 
} 

Answer 8

सिस्टम और खोल आदेशों का उपयोग करने के बारे में कैसे? विंडोज़ के साथ, मुझे लगता है कि जब आप RStudio में स्क्रिप्ट खोलते हैं तो यह वर्तमान खोल निर्देशिका को स्क्रिप्ट की निर्देशिका में सेट करता है। आपको सीडी सी: \ उदा। या जो भी ड्राइव आप खोजना चाहते हैं उसे जोड़ना पड़ सकता है (उदा। खोल ('डीआईआर सी: \\ * file_name/s', intern = TRUE) - \\ बचने वाले चरित्र से बचने के लिए)। केवल विशिष्ट नामित फ़ाइलों के लिए ही काम करेगा जब तक आप उपनिर्देशिका निर्दिष्ट नहीं करते हैं (लिनक्स के लिए मैंने/से खोजना शुरू कर दिया है)। किसी भी मामले में, यदि आप जानते हैं कि खोल में कुछ कैसे ढूंढें, तो यह आर के भीतर इसे खोजने और निर्देशिका को वापस करने के लिए एक लेआउट प्रदान करता है। काम करना चाहिए कि क्या आप स्क्रिप्ट को सोर्सिंग या चला रहे हैं लेकिन मैंने संभावित बग की पूरी तरह से खोज नहीं की है।

#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)