Raw Message

Message-ID: <95071.1362593237@greg-minshalls-mbp.local>
Date: 2013-03-06T18:07:17Z
From: Greg Minshall
Subject: [Rcpp-devel] Simple List Operations
In-Reply-To: Your message of "Wed, 06 Mar 2013 11:38:42 -0600." <51377F22.9060006@mcw.edu>

(since i've just been here...)

.../unitTests/runit.Vector.R has these tests:
----
test.List.erase <- function(){
    fun <- list_erase
    d <- list( x = 1:10, y = letters[1:10] )
    checkEquals(fun(d),
                list( y = letters[1:10] ),
                msg = "List.erase" )
}

test.List.erase.range <- function(){
    fun <- list_erase_range
    d <- list( x = 1:10, y = letters[1:10], z = 1:10 )
    checkEquals(fun(d),
                list( z = 1:10 ),
                msg = "List.erase (range version)" )
}
----

the functions list_erase{,_range} are in .../unitTests/cpp/Vector.cpp:
----
// [[Rcpp::export]]
List list_erase( List list ){
    list.erase( list.begin() ) ;
    return list ;
}

// [[Rcpp::export]]
List list_erase_range( List list ){
    list.erase( 0, 1 ) ;
    return list ;
}
----

i haven't tried these.