<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<br>I'm reposting the following question relating to using data frames in Rcpp - I originally put it up on StackOverflow but Dirk directed me to post it here instead. I'm interested in whether there's a resolution to this issue, and if not, whether there are future plans to resolve it. <br><br>This is my first post on here, so go easy - I'm hoping my query will get a better response than on SO!<br><br><br>In the R / Rcpp code shown in italics below (a toy example), I beam across the data frame mydf to the Rcpp code (and pick it up as DF), and then count the number of age values that exceed 21, and the number of name values that equal "Bob" or "Eve". The two answers (4 and 2) are returned as a list, as shown at the end of the code. All hopefully self-explanatory.<br><br><b>Here's my question: Rcpp clearly understands DF["name"] and DF["age"] as being the columns name and age in DF - that's great. Given that this notation is meaningful, what notation can we use to refer directly to the individual elements in DF, so that we don't need to generate intermediate vectors (i.e. the std::vectors name and age in the code below)? The reason I ask is that in practice the input data frame(s) may well have a much, much greater number of columns, and it feels unwieldy to have to map each one individually to a vector given that the information is clearly already contained within the DF object. If we had to do this to use the columns of a data frame in R, there'd be a riot!<br></b><br>I imagine an answer to this question will be valuable to all those who use Rcpp for complex tasks where data frames need passing (which is presumably everything beyond a certain level of complexity), so I thought I'd map things out in detail. Hope the question is clear, and many thanks in advance for your help. :)<br><br><i><br>library(inline)<br><br>mydf = data.frame(name=c("Amy","Bob","Cal","Dan","Eve","Fay","Gus"), <br> age=c(24,17,31,28,19,20,25), stringsAsFactors=FALSE)<br><br><br>testfunc1 = cxxfunction(<br> signature(DFin = "data.frame"),<br> plugin = "Rcpp",<br> body = '<br> Rcpp::DataFrame DF(DFin);<br> std::vector<std::string> name = <br> Rcpp::as< std::vector<std::string> >(DF["name"]);<br> std::vector<int> age = <br> Rcpp::as< std::vector<int> >(DF["age"]);<br> int n = name.size();<br> int counter1 = 0;<br> int counter2 = 0;<br> for (int i = 0; i < n; i++) {<br> if (age[i] > 21) {<br> counter1++;<br> }<br> if ((name[i] == "Bob") | (name[i] == "Eve")) {<br> counter2++;<br> }<br> }<br> return(Rcpp::List::create( _["counter1"] = counter1, <br> _["counter2"] = counter2 ));<br> ')<br><br>out = testfunc1(mydf)<br>print(out)<br></i><br>The output in <i>out</i> is of course:<br><i><br>$counter1<br>[1] 4<br><br>$counter2<br>[1] 2<br></i><br> </div></body>
</html>