On Sat, Dec 4, 2010 at 3:22 PM, Dirk Eddelbuettel <span dir="ltr">&lt;<a href="mailto:edd@debian.org">edd@debian.org</a>&gt;</span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div class="im"><br>
On 4 December 2010 at 15:04, Dominick Samperi wrote:<br>
| getYear() method adds 1900 when it shouldn&#39;t, so 2001 becoms 3901,<br>
| for example.<br>
<br>
</div>Confirmed:<br>
<br>
R&gt; require(inline, quiet=TRUE, warn=FALSE)<br>
R&gt; require(Rcpp, quiet=TRUE, warn=FALSE)<br>
R&gt;<br>
R&gt; foo &lt;- cxxfunction(signature(sDate=&quot;Date&quot;), &#39;<br>
+   Rcpp::Date d(sDate);<br>
+   return(Rcpp::List::create(Rcpp::Named(&quot;day&quot;)      = d.getDay(),<br>
+                             Rcpp::Named(&quot;month&quot;)    = d.getMonth(),<br>
+                             Rcpp::Named(&quot;year&quot;)     = d.getYear(),<br>
+                             Rcpp::Named(&quot;weekeday&quot;) = d.getWeekday(),<br>
+                             Rcpp::Named(&quot;yearday&quot;)  = d.getYearday()));<br>
+   &#39;, plugin=&quot;Rcpp&quot;)<br>
R&gt;<br>
R&gt; foo(Sys.Date())<br>
$day<br>
[1] 4<br>
<br>
$month<br>
[1] 12<br>
<br>
$year<br>
[1] 3910<br>
<br>
$weekeday<br>
[1] 7<br>
<br>
$yearday<br>
[1] 338<br>
<br>
R&gt;<br>
<br>
Now fixed in rev2714.<br></blockquote><div><br>Thanks. <br><br>Another small issue: the getHour() method of Rcpp::Datetime appears<br>to return GMT time. Is there an easy way to convert to localtime?<br><br></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

<br>
Dirk<br>
<font color="#888888"><br>
--<br>
Dirk Eddelbuettel | <a href="mailto:edd@debian.org">edd@debian.org</a> | <a href="http://dirk.eddelbuettel.com" target="_blank">http://dirk.eddelbuettel.com</a><br>
</font></blockquote></div><br>