added resize

inst/include/interface/rcpp/rcpp_interface.hpp

@@ -76,7 +76,8 @@ RCPP_MODULE(growth) {
       .constructor()
       .constructor<size_t>()
       .method("at", &VariableVector::at)
-      .method("size", &VariableVector::size);
+      .method("size", &VariableVector::size)
+      .method("resize", &VariableVector::resize);
     Rcpp::class_<PopulationInterface>("Population")
     .constructor()
     .field("ages", &PopulationInterface::ages)

inst/include/interface/rcpp/rcpp_objects/rcpp_interface_base.hpp

@@ -74,6 +74,27 @@ class VariableVector{
         return this->vec_m.size();
     }
 
+    void resize(size_t size){
+        size_t n = this->vec_m.size();
+
+        if(size > n){
+            int m = size - n;
+
+            for(size_t i = 0; i < m; i++){
+                Variable v;
+                this->vec_m.push_back(Rcpp::wrap(v));
+            }
+        }else if(n > size){
+            int m = size;
+            Rcpp::List l(m);
+            for(size_t i = 0; i < m; i++){
+                l[i] = this->vec_m[i];
+            }
+            this->vec_m = l;
+        }
+
+    }
+
 
 };
 uint32_t VariableVector::id_g = 0;

test/testv.R

@@ -12,3 +12,15 @@ v[1]$value
 for( i in 1:length(v)){
 print(v[i]$id)
 }
+
+v$resize(5)
+
+for( i in 1:length(v)){
+print(v[i]$id)
+}
+
+v$resize(10)
+
+for( i in 1:length(v)){
+print(v[i]$id)
+}