Funktion zum Aufbau relativer Pfade in R?

Question

Gibt es etwas Ähnliches wie make.path.relative(base.path, target.path)?

Ich möchte vollständige Pfade in relative Pfade bei einem Basispfad (wie Projekt-Verzeichnis) konvertieren.

Answer 1

Ähnlich, aber kürzer:

make.path.relative = function(base, target) { 
    common = sub('^([^|]*)[^|]*(?:\\|\\1[^|]*)$', '^\\1/?', paste0(base, '|', target)) 

    paste0(gsub('[^/]+/?', '../', sub(common, '', base)), 
     sub(common, '', target)) 
} 

make.path.relative('C:/home/adam', 'C:/home/adam/tmp/R') 
#[1] "tmp/R" 

make.path.relative('/home/adam/tmp', '/home/adam/Documents/R') 
#[1] "../Documents/R" 

make.path.relative('/home/adam/Documents/R/Project', '/home/adam/minetest') 
#[1] "../../../minetest" 

Voodoo regex kommt from here Sie können path.cat Funktion aus meiner Antwort auf Function to concatenate paths?

Beispiele verwenden.

Answer 2

Ok. Ich schrieb die Funktion selbst:

make.path.relative<-function(base.path, target.path) 
{ 
    base.s<-strsplit(base.path,'/',fixed=TRUE)[[1]] 
    target.s<-strsplit(target.path,'/',fixed=TRUE)[[1]] 
    idx<-1 
    maxidx<-min(length(target.s),length(base.s)) 
    while(idx<=maxidx) 
    { 
    if (base.s[[idx]]!=target.s[[idx]]) 
     break 
    idx<-idx+1 
    } 
    dotscount<-length(base.s)-idx+1 
    ans1<-paste0(paste(rep('..',times=dotscount),collapse='/')) 
    if (idx<=length(target.s)) 
    ans2<-paste(target.s[idx:length(target.s)],collapse='/') 
    else 
    ans2<-'' 
    ans<-character(0) 
    if (ans1!='') 
    ans[[length(ans)+1]]<-ans1 
    if (ans2!='') 
    ans[[length(ans)+1]]<-ans2 
    ans<-paste(ans,collapse='/') 
    return(ans) 
} 

Sie müssen zuerst die Wege sanieren, um sicherzustellen, dass sie die gleiche slash Konvention verwenden.

> make.path.relative('C:/home/adam', 'C:/home/adam/tmp/R') 
[1] "tmp/R" 

> make.path.relative('/home/adam/tmp', '/home/adam/Documents/R') 
[1] "../Documents/R" 

> make.path.relative('/home/adam/Documents/R/Project', '/home/adam/minetest') 
[1] "../../../minetest"