在R中运行rcpp创建的函数时，如何知道代码中的哪一行导致错误？

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
NumericVector myFunction(NumericVector x) {
  int n = x.size();
  NumericVector result(n);

  for (int i = 0; i < n; i++) {
    if (x[i] < 0) {
      Rcpp::stop("Error: Negative value encountered at line %d", __LINE__);
    }
    result[i] = x[i] * 2;
  }

  return result;
}

> myFunction(c(1, -2, 3))
Error: Negative value encountered at line 10