Displaying 1 result from an estimated 1 matches for "vaccessor".
Did you mean:
accessor
2008 Feb 03
1
R class accessor problem in 2.6
.... but in 2.6 it returns a
NULL.
# Start of accessor method for A
setMethod('$', '_p_A', function(x, name)
{
print('foo')
accessorFuns = list('i' = A_i_get, 'ui' = A_ui_get, 'd' = A_d_get, 'str' =
A_str_get, 'tmp' = A_tmp_get)
vaccessors = c('i', 'ui', 'd', 'str', 'tmp')
idx = pmatch(name, names(accessorFuns))
if(is.na(idx))
return(callNextMethod(x, name))
f = accessorFuns[[idx]]
formals(f)[[1]] = x
if (is.na(match(name, vaccessors))) f else f(x)
}
)
# end of accessor method f...