Displaying 1 result from an estimated 1 matches for "a_ui_set".
Did you mean:
a_i_set
2008 Feb 03
1
R class accessor problem in 2.6
...f = accessorFuns[[idx]]
formals(f)[[1]] = x
if (is.na(match(name, vaccessors))) f else f(x)
}
)
# end of accessor method for A
# Start of accessor method for A
setMethod('$<-', '_p_A', function(x, name, value)
{
accessorFuns = list('i' = A_i_set, 'ui' = A_ui_set, 'd' = A_d_set, 'str' =
A_str_set, 'tmp' = A_tmp_set)
idx = pmatch(name, names(accessorFuns))
if(is.na(idx))
return(callNextMethod(x, name, value))
f = accessorFuns[[idx]]
f(x, value)
x
}