S4 Methode Subsetting generische ersetzen Umgebung

Question

Ich bin in der Dokumentation verloren und wirklich den Überblick darüber, was zu tun ist. Ich denke, dass die Lösung ist, Umgebungen zu verwenden, aber ich kann nicht herausfinden, wie, selbst wenn ich fühle, dass es nicht so kompliziert ist.

Hier ist ein einfaches Beispiel zwei Klassen:

Person <- setClass(  
    Class = "Person", 
    slots = c(name = "character", 
      id = "numeric", 
      age = "numeric")); 

PersonList <- setClass( 
    Class = "PersonList", 
    slots = c(datasetList = "list")); 

Hier ist die Objekte Schöpfung:

mary <- new("Person", name = "Mary", id = 1, age = 35); 
peter <- new("Person", name = "Peter", id = 2, age = 39); 
john <- new("Person", name = "John", id = 3, age = 25); 
employees <- new("PersonList", datasetList = list(mary, peter, john)); 

ich dann zwei Methoden bin definieren das Alter und die ID zu setzen und ein Verfahren für Untereinstellungen Person:

setGeneric(name = "setAge<-", def = function(theObject, value){standardGeneric("setAge<-");}); 
setGeneric(name = "setid<-", def = function(theObject, value){standardGeneric("setid<-");}); 

setReplaceMethod(

    f = "setAge", 

    signature = "Person", 

    definition = function(theObject, value){ 
     theObject@age <- value; 
     return(theObject); 
    }); 

setReplaceMethod(

    f = "setid", 

    signature = "Person", 

    definition = function(theObject, value){ 
     theObject@id <- value; 
     return(theObject); 
    }); 

setMethod(

    f = "[[", 

    signature = c("PersonList", "ANY", "ANY"), 

    definition = function(x, i, j, ...){ 

     return(x@datasetList[[i]]); 
    }); 

Jetzt ist hier das Problem:

> setAge(employees[[1]]) <-56 
Error in `[[<-`(`*tmp*`, 1, value = new("Person", 
      name = "Mary", id = 1, : 
        [[<- defined for objects of type "S4" only for subclasses of environment 

Wenn ich das richtig verstanden, so etwas wie Ich habe Umgebungen verwenden zu bekommen:

setMethod(

    f = "[[<-", 

    signature = c("PersonList", "ANY", "ANY"), 

    definition = function(x, i, j, ...){ 

     if environment is setid return(setId(x[[i]])) 
     if environment is setAge return(setAge(x[[i]])) 
    }); 

Geht man durch die doc dies ist wirklich kompliziert zu werden. Kann mir jemand einen Hinweis geben, wie das geht?

Vielen Dank.

Answer 1

Alles, was Sie brauchen, ist [[<- für Ihre PersonList Klasse zu definieren:

setMethod(
    f = "[[<-", 
    signature = c("PersonList"), 
    definition=function(x,i,j,value) { 
     x@datasetList[[i]] <- value 
     return(x) 
    }) 

Dann sollten Sie den Code arbeiten. Sie könnten jedoch etwas Code hinzufügen, um die Integrität zu überprüfen. Wie inherits(value, "Person") und missing(j).