`Reduce`，而不是`<< - `

Question

讓我們是一種把列表轉換成準JSON字符串的函數：

as.cypher.list = function(l){ 
    dots = l 
    reserved = c("ID", "label") 
    properties = dots[!names(dots) %in% reserved] 
    properties = gsub("',", "', ",        # adds spaces after commas 
        gsub('"', "'",        # replaces " with ' 
         gsub('"([^"]+)":', "\\1:",    # removes " around key names 
           toJSON(rapply(properties, as.character))))) 
    label = if(is.null(dots[["label"]])) "" else paste0(":", dots[["label"]]) 
    ID = if(is.null(dots[["ID"]])) NA_character_ else dots[["ID"]] 
    query = sprintf("%s%s", label, properties) 
    return(query) 
} 

例如：

as.cypher.list(list(label="AA", a=1, b="foo", name="bar")) 
# [1] ":AA{a:'1', b:'foo', name:'bar'}" 

現在讓我們：

query = "MATCH {n}, {ae} RETURN n" 
nodes = list(n=list(label="AA", a=1, b="foo", name="bar"), 
      ae=list(label="BB", b=2)) 

如何將nodes列表中的值替換爲query，以便每個列表名稱與子字符串內部匹配query？取代後的最終理想的結果是：

query 
# [1] "MATCH (n:AA{a:'1', b:'foo', name:'bar'}), (ae:BB{b:'2'}) RETURN n" 

我可以做到這一點：

add_param = function(nm, val){ 
    query <<- gsub(paste0("{", nm, "}"), 
       paste0("(", nm, as.cypher.list(val),")"), 
       query, fixed = T) 
} 

Map(add_param, names(nodes), nodes) 
# $n 
# [1] "MATCH (n:AA{a:'1', b:'foo', name:'bar'}), {ae} RETURN n" 
# 
# $ae 
# [1] "MATCH (n:AA{a:'1', b:'foo', name:'vser'}), (ae:BB{b:'2'}) RETURN n" 

但是請注意使用的<<-這是相當尷尬的。

如何在這種情況下使用Reduce()？

Answer 1

這裏唯一的一個小問題是，當您在命名列表上使用Reduce時，您無權訪問函數中的名稱。一種解決方法就是將名稱與數據一起嵌入。你可以做一個像Map(list, names(nodes), nodes)這樣的轉換。然後，一旦你有這樣的對象，你可以在iteratete有你需要的所有信息，你可以使用Reduce

Reduce(function(q,n) { 
    nm <- n[[1]] 
    val <- n[[2]] 
    gsub(paste0("{", nm, "}"), 
     paste0("(", nm, as.cypher.list(val),")"), 
     q, fixed = T) 
}, Map(list, names(nodes), nodes), init=query) 
# [1] "MATCH (n:AA{a:'1', b:'foo', name:'bar'}), (ae:BB{b:'2'}) RETURN n" 

你也可以考慮與regmatches()做提取/更換。這裏有一個這樣的策略

tnodes <- mapply(function(nm, val) paste0("(", nm, as.cypher.list(val),")"), 
    names(nodes), nodes) 
query <- "MATCH {n}, {ae} RETURN n" 
m <- gregexpr("\\{[^}]+\\}", query) 
regmatches(query, m) <- lapply(regmatches(query, m), function(x) { 
    names <- substr(x, 2, nchar(x)-1) 
    tnodes[names] 
}) 
query 
# [1] "MATCH (n:AA{a:'1', b:'foo', name:'bar'}), (ae:BB{b:'2'}) RETURN n" 

基本上我們第一緩存節點的轉換值，然後尋找所有「{XX}」令牌和相應的值替換它們。