R找不到Rcpp函数

Question

我构建了一个Rpackage（称为myUtils），它使用cpp 文件，在RStudio 后面Hadley's manual。我的cpp 文件位于src 目录中，运行后创建：devtools::use_rcpp()，在我的R 目录下我有一个名为myUtils.R 的文件，其中包含以下几行：

#' myUtils: A package with various functions for my analyses
#'
#'
#' @docType package
#' @name myUtils
#' @useDynLib myUtils
#' @importFrom Rcpp sourceCpp
NULL

这是我的cpp 文件：

// [[Rcpp::depends(RcppArmadillo, RcppEigen)]]

#include <RcppArmadillo.h>
#include <RcppEigen.h>

using namespace Rcpp;

// [[Rcpp::export]]
SEXP armaMatMult(arma::mat A, arma::mat B){
  arma::mat C = A * B;

  return Rcpp::wrap(C);
}

// [[Rcpp::export]]
SEXP eigenMatMult(Eigen::MatrixXd A, Eigen::MatrixXd B){
  Eigen::MatrixXd C = A * B;

  return Rcpp::wrap(C);
}

然后我运行devtools::document()，将useDynLib(myUtils) 添加到NAMESPACE 文件中。然后我运行Build & Reload，它成功完成，并在R目录中创建了RccpExports.R文件，其中包含cpp函数，例如：

eigenMatMult <- function(A, B) {
    .Call('_myUtils_eigenMatMult', PACKAGE = 'myUtils', A, B)
}

然后我尝试测试eigenMatMult，但无法识别：

set.seed(1)
A <- matrix(rnorm(100), 10, 10)
> eigenMatMult(A=A,B=A)
Error: could not find function "eigenMatMult"

如果前面有myUtils::，则两者都不会出现

我好像遗漏了什么，但我不知道是什么。

我们将不胜感激。

Answer 1

Rcpp 属性机制本身并不向NAMESPACE 文件中的导出指令添加函数。我们的示例使用通配符导出所有内容。

因此，如果您的功能不可见，请执行以下一项或两项操作

• 通过::: 即myUtils:::eigenMatMult(A, A) 调用
• 将 eigenMatMult 添加到导出中，手动或通过 roxygen 标签添加

Answer 2

德克说：

手动或通过 roxygen 标签将 eigenMatMult 添加到导出中

如果NAMESPACE是roxygen2生成的，我们可能不想手动修改：

# Generated by roxygen2: do not edit by hand

所以，让我们为 roxygen2 添加一个标签，让它知道自动将我们的函数添加到 NAMESPACE 文件中。

您的代码示例如下所示：

// [[Rcpp::export]]
SEXP eigenMatMult(Eigen::MatrixXd A, Eigen::MatrixXd B){
  Eigen::MatrixXd C = A * B;

  return Rcpp::wrap(C);
}

它应该看起来像这样（注意//' @export 的行）：

//' @export
// [[Rcpp::export]]
SEXP eigenMatMult(Eigen::MatrixXd A, Eigen::MatrixXd B){
  Eigen::MatrixXd C = A * B;

  return Rcpp::wrap(C);
}