moved dimnames access to use cpp methods instead of c macros

rc2server · Nov 15, 2017 · 7ab8464 · 7ab8464
1 parent 09e257d
commit 7ab8464
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/EnvironmentWatcher.cpp b/src/EnvironmentWatcher.cpp
@@ -484,10 +484,10 @@ RC2::EnvironmentWatcher::setDimNames ( RObject& robj, json& jobj )
 		jobj["dims"] = rvectorToJsonArray(robj);
 	}
 	if (robj.hasAttribute("dimnames")) {
-		RObject mlist(robj.attr("dimnames"));
+		Rcpp::List mlist(robj.attr("dimnames"));
 		json dnames;
-		for (int i=0; i < LENGTH(mlist); i++) {
-			RObject cl(VECTOR_ELT(mlist, i));
+		for (int i=0; i < mlist.length(); i++) {
+			RObject cl(mlist[i]);
 			dnames.push_back(rvectorToJsonArray(cl));
 		}
 		jobj["dimnames"] = dnames;