从 Tableau 调用 Rcpp 函数时出错。如何解释和调试 Rserve 日志?

Error when calling Rcpp function from Tableau. How to interpret and debug Rserve logs?

我在将我编写的 R 函数连接到 Tableau 时遇到了很多问题。函数依赖Rcpp.

在 R 中,如果我调用 prob_1_beats_2(1, 2, 3, 4) 它工作得很好。但是,当我尝试使用 Rserve 连接到 Tableau 时,出现以下错误:

Error in eval(expr, envir, enclos) : expecting a single value

我似乎无法追查。我在调试模式下尝试 运行 Rserve 但无济于事。我不确定如何解释这些结果。最好能准确地回溯 R 中调用的内容。

调试日志要点:https://gist.github.com/FrankPortman/f5cfe32596fd47080286

prob_1_beats_2 <- function(alpha_1, beta_1, alpha_2, beta_2, percent_lift = 0) {

  if(alpha_1 / beta_1 < alpha_2 / beta_2) {

    t1 <- alpha_2
    t2 <- beta_2

    alpha_2 <- alpha_1
    beta_2 <- beta_1

    alpha_1 <- t1
    beta_1 <- t2

  }

  alt_count(alpha_1, beta_1, alpha_2, beta_2)

}

这是 Rcpp 函数:

double alt_count(double alpha_1, double beta_1, double alpha_2, double beta_2) {

  double total = 0;

  for(int i = 0; i < alpha_1; i++) {

    total += exp(i * log(beta_1) + alpha_2 * log(beta_2) - (i + alpha_2) * log(beta_1 + beta_2) - log(i + alpha_2) - lbeta(i + 1, alpha_2));

  }

  return total;

}

如您所见:

> prob_1_beats_2(1, 2, 3, 4)
[1] 0.7037037

最后,我正在使用的 Tableau 调用:

SCRIPT_REAL("library(mypackage);prob_1_beats_2(.arg1, .arg2, .arg3, .arg4)", 1.0, 2.0, 3.0, 4.0)

注意

SCRIPT_REAL("library(mypackage);prob_1_beats_2(1, 2, 3, 4)", 1.0, 2.0, 3.0, 4.0)

return 0.7037037。我将使用的真正的 Tableau 调用不会使用 1:4 的常量值,但我正在尝试这样做以进行调试。

Tableau 似乎总是将值作为向量传递给 R。输入时:

SCRIPT_REAL("library(mypackage);prob_1_beats_2(.arg1, .arg2, .arg3, .arg4)", 1.0, 2.0, 3.0, 4.0)

R 实际上是将 c(1 , 1 , 1 , 1 , etc.)c(2 , 2 , 2 , 2 , 2 , etc.) 等作为函数的参数。由于某种原因,这是在没有 Rcpp 组件的情况下处理的,但是当我重写函数以包含 Rcpp 时失败了。

此解决方法目前看来还不错:

prob_1_beats_2 <- function(alpha_1, beta_1, alpha_2, beta_2, percent_lift = 0, min_lift = FALSE) {

  alpha_1 <- as.numeric(alpha_1[1])
  beta_1 <- as.numeric(beta_1[1])
  alpha_2 <- as.numeric(alpha_2[1])
  beta_2 <- as.numeric(beta_2[1])

  ...

}