Rcpp中DateVector的最大日期

Question

如何在DateVector中将最长日期保存为Rcpp中的变量？

下面的玩具示例返回错误信息：

没有从'__gnu_cxx :: __ normal_iterator <Rcpp :: Date *，std :: vector <Rcpp :: Date，std :: allocator <Rcpp :: Date>>>'到'NumericVector'的可行转换（也称为'Vector <14> '）

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
Date date_toy_example(DataFrame d){

  // Get date vector from data frame
  DateVector  dte = d["date"];

  // Get max date 
  Date max_dte = std::max_element(dte.begin(), dte.end());

  // Return maximum date
  return max_dte;
}



// R code

/*** R
df <- data.frame(id=1:10, date=seq(as.Date("2015-01-01"),as.Date("2015-01-10"), by="day"))
date_toy_example(df)
*/

Answer 1

std::max_element返回一个迭代器； 您需要取消引用以获得基本值：

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
Date MaxDate(DataFrame d) {
    DateVector  dte = d["date"];
    Date max_dte = *std::max_element(dte.begin(), dte.end());
    //            ^^^

    return max_dte;
}

/*** R

df <- data.frame(
    id=1:10,
    date = seq(as.Date("2015-01-01"),
        as.Date("2015-01-10"),
        by="day")
)
MaxDate(df)
# [1] "2015-01-10"

max(df$date)
# [1] "2015-01-10"

*/

---

或者，将您的输入视为普通的NumericVector并使用Rcpp::max ：

// [[Rcpp::export]]
Date MaxDate(DataFrame d) {
    NumericVector dte = d["date"];
    return Date(Rcpp::max(dte));
}