R Создать счетчик закрытий

Question

Я полностью из глубины этого. Я пытаюсь прочитать большой XML-файл, используя функции закрытия. Единственная проблема: я не могу определить способ создания счетчика в закрытии, так что я могу использовать счетчик как идентификатор для местоположения магазина. Я придумал следующий код, который, очевидно, имеет некоторые (или, может быть, серьезные) проблемы.

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 
    } 
})()