The R Project SVN – R – Diff – /trunk/src/library/methods/R/is.R



        else if(is.null(classDef2@prototype)
                && is.na(match("NULL", names(classDef2@subclasses)))) {
            classDef2@prototype <-
                if(classDef@virtual)
                    classDef@prototype
                else # new(), but without initialize(), which may require an arg.
                    .Call(C_new_object, classDef)
        }
    }
    assignClassDef(class2, classDef2, where2, TRUE)
    .removePreviousCoerce(class1, class2, where, prevIs)

Rev 85416	Rev 88267
Line 194...	Line 194...
194	`else if(is.null(classDef2@prototype)`	194	`else if(is.null(classDef2@prototype)`
195	`&& is.na(match("NULL", names(classDef2@subclasses)))) {`	195	`&& is.na(match("NULL", names(classDef2@subclasses)))) {`
196	`classDef2@prototype <-`	196	`classDef2@prototype <-`
197	`if(classDef@virtual)`	197	`if(classDef@virtual)`
198	`classDef@prototype`	198	`classDef@prototype`
199	`else # new(), but without intialize(), which may require an arg.`	199	`else # new(), but without initialize(), which may require an arg.`
200	`.Call(C_new_object, classDef)`	200	`.Call(C_new_object, classDef)`
201	`}`	201	`}`
202	`}`	202	`}`
203	`assignClassDef(class2, classDef2, where2, TRUE)`	203	`assignClassDef(class2, classDef2, where2, TRUE)`
204	`.removePreviousCoerce(class1, class2, where, prevIs)`	204	`.removePreviousCoerce(class1, class2, where, prevIs)`

The R Project SVN R

(root)/trunk/src/library/methods/R/is.R @ 77458 – Rev 85416 → 88267