R創建一個關閉櫃檯

Question

我完全超出了我對此的深度。我正在嘗試使用閉包函數讀取大型xml文件。唯一的問題是，我無法找到一種在閉包中創建計數器的方法，以便我可以使用計數器作爲商店位置的ID。我提出了以下代碼，這些代碼顯然存在一些（或者可能是嚴重的）問題。

branchFunction <- function() { 
    store <- new.env() 
    func <- function(x, ...) { 
    new_counter <- function() { 
     i <- 0 
     function() { 
     i <<- i + 1 
     i 
     } 
    } 
    ns <- getNodeSet(x,path = "//event[@type='left link' or @type='entered link']") 
    value <- lapply(ns, xmlAttrs) 
    store[[i]] <- value 
    } 
    getStore <- function() { as.list(store) } 
    list(event = func, getStore=getStore) 
} 

myfunctions <- branchFunction() 

xmlEventParse(file = "xml.xml", handlers = NULL, branches = myfunctions) 

#to see what is inside 
l <- myfunctions$getStore() 

以下是樣本data。

Answer 1

這是相當多的，你只是想調用的函數來得到它去，

new_counter <- (function() { 
    i <- 0 
    function() { 
    i <<- i + 1 
    i 
    } 
})()