mvbutils (version 1.1.0)

my.index: Arbitrary-level retrieval from and modification of recursive objects

Description

my.index and my.index.assign are designed to replace [[ and [[<- within a function, to allow arbitrary-depth access into any recursive object. In order to avoid conflicts with system usage and/or slowdowns, it may be wise to do this only inside a function definition where they are needed. my.index.exists tests whether the indexed element actually exists.

Usage

# Use them like this, inside a function definition:
# assign( "[[", my.index); var[[i]]
# assign( "[[<-", my.index.assign); var[[i]] <- value
my.index( var, ...) # not normally called by name
my.index.assign( var, ..., value) # not normally called by name
my.index.exists( i, var)

Arguments

var

a recursive object of any mode (not just list, but e.g. call too)

value

anything

...

one or more numeric index vectors, to be concatenated

i

numeric index vector

Details

Although Rallows arbitrary-level access to lists, this does not (yet) extend to call objects or certain other language objects-- hence these functions. They are written entirely in R, and are probably very slow as a result. It is probably unwise to replace system [[ and [[<- with these replacements at a global level, i.e. outside the body of a function-- these replacements do not dispatch based on object class, for example. Note that my.index and my.index.assign distort strict Rsyntax, by concatenating their ... arguments before lookup. Strictly speaking, Rsays that x[[2,1]] should extract one element from a matrix list; however, this doesn't really seem useful because the same result can always be achieved by x[2,1][[1]]. With my.index, x[[2,1]] is the same as x[[c(2,1)]]. The convenience of automatic concatentation seems slightly preferable. my.index.exists checks whether var is "deep enough" for var[[i]] to work. Unlike the others, it does not automatically concatenate indices. At present, there is no facility to use a mixture of character and numeric indexes, which you can in S+ via "list subscripting of lists".

Examples

assign( "[[", my.index)
assign( "[[<-", my.index.assign)
ff <- function() { a <- b + c }
body( ff)[[2,3,2]] # as.name( "b")
my.index.exists( c(2,3,2), body( ff)) # TRUE
my.index.exists( c(2,3,2,1), body( ff)) # FALSE
body( ff)[[2,3,2]] <- quote( ifelse( a>1,2,3))
ff # function () \{ a <- ifelse(a > 1, 2, 3) + c \}
my.index.exists( c(2,3,2,1), body( ff)) # now TRUE
remove( list=c( "[[", "[[<-"))