R/utils.R

In funcy: Functional Clustering Algorithms

#
#  Copyright (C) 2005-2008 Friedrich Leisch
#  $Id: utils.R 3 2013-06-12 10:06:43Z leisch $
#

list2object = function(from, to){
    n = names(from)
    s = slotNames(to)
    p = pmatch(n, s)
    if(any(is.na(p)))
        stop(paste("\nInvalid slot name(s) for class",
                   to, ":", paste(n[is.na(p)], collapse=" ")))
    names(from) = s[p]
    do.call("new", c(from, Class=to))
}