Изменение элемента списка из другого элемента из того же списка

Question

Я хочу создать список (в основном объект с пользовательским классом), который содержит базу данных в одном из элементов и функцию в другом элементе. После инициализации списка я хочу иметь возможность вызвать функцию и изменить ее элемент, содержащий базу данных. Вот пример того, что я имею в виду

newObject<- function(dataSet){ 
    rtrn <- list() 
    rtrn$dataHolder <- dataSet 
    rtrn$addition <- function(numberToAdd){ 
    rtrn$dataHolder <- rtrn$dataHolder + numberToAdd 
    } 
    class(rtrn) <- "customClass" 
    return(rtrn) 
} 

x <- newObject(c(1,2,3)) 
x$addition(1) 

Вызов метода сложения() фактически не изменять элемент dataHolder. Я пробовал < < - как оператор присваивания (так как я изменяю переменную за пределами функции), но это, похоже, не работает

Answer 1

Ваш пример - это почти closure. Если вы исправить свой «класс» в:

newObject<- function(dataSet) { 
    dataHolder <- dataSet 
    addition <- function(numberToAdd){ 
    dataHolder <<- dataHolder + numberToAdd 
    } 
    getdata <- function() { 
    dataHolder 
    } 

    rtrn <- list(addition = addition, getdata = getdata) 
    class(rtrn) <- "customClass" 
    return(rtrn) 
} 

вы приблизитесь к тому, что вы хотите:

x <- newObject(c(1,2,3)) 
x$getdata() 
[1] 1 2 3 
x$addition(1) 
x$getdata() 
[1] 2 3 4 

Так как вы определили свой собственный class, вы можете также определить функцию печати:

print.customClass <- function(x){ print(x$getdata()) } 

И увидеть "интерьер" по

x 
[1] 2 3 4