<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Feb 10, 2015 at 4:05 PM, Hao Ye <span dir="ltr"><<a href="mailto:hye@ucsd.edu" target="_blank">hye@ucsd.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word"><div>Hi Tim,</div><span class=""><div><br></div><div><blockquote type="cite"><div dir="ltr">def = "bool is_na_character_vector(CharacterVector x) { return CharacterVector::is_na(x); }"</div></blockquote><br></div></span><div>x is a CharacterVector, so you need to check is_na on each element separately. Try:</div><div><br></div><div>def = "bool is_first_character_na(CharacterVector x) {return CharacterVector::is_na(x[0]);}"</div><div><br></div><div>and see the Rcpp gallery for more examples:</div><div><a href="http://gallery.rcpp.org/articles/working-with-missing-values/" target="_blank">http://gallery.rcpp.org/articles/working-with-missing-values/</a></div></div></blockquote><div><br></div><div>Argh. Yes. I knew that was the problem, but tested it with x[1] not x[0] -- too much switching back and forth between R and C++....</div><div><br></div><div>Thanks.</div><div><br></div><div>THK</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word"><div><br></div>Best,<br><div>
<span style="border-collapse:separate;border-spacing:0px"><span style="border-collapse:separate;color:rgb(0,0,0);font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:-webkit-auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><div style="word-wrap:break-word"><div>--</div><div>Hao Ye</div><div><a href="mailto:hye@ucsd.edu" target="_blank">hye@ucsd.edu</a></div></div></span></span>
</div>
<br><div><div><div class="h5"><div>On Feb 10, 2015, at 1:50 PM, Tim Keitt <<a href="mailto:tkeitt@utexas.edu" target="_blank">tkeitt@utexas.edu</a>> wrote:</div><br></div></div><blockquote type="cite"><div><div class="h5"><div dir="ltr"><div>library(Rcpp)</div><div>def = "bool is_na_character_vector(CharacterVector x) { return CharacterVector::is_na(x); }"</div><div>f = cppFunction(def)</div><div>print(f(as.character(NA))) # FALSE</div><div><br></div><div>What am I missing?</div><div><br></div><div>THK</div><div><br></div>-- <br><div><div dir="ltr"><a href="http://www.keittlab.org/" target="_blank">http://www.keittlab.org/</a></div></div>
</div></div></div>
_______________________________________________<br>Rcpp-devel mailing list<br><a href="mailto:Rcpp-devel@lists.r-forge.r-project.org" target="_blank">Rcpp-devel@lists.r-forge.r-project.org</a><br><a href="https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel" target="_blank">https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel</a></blockquote></div><br></div><br>_______________________________________________<br>
Rcpp-devel mailing list<br>
<a href="mailto:Rcpp-devel@lists.r-forge.r-project.org">Rcpp-devel@lists.r-forge.r-project.org</a><br>
<a href="https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel" target="_blank">https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><a href="http://www.keittlab.org/" target="_blank">http://www.keittlab.org/</a></div></div>
</div></div>