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

Question

我在将我编写的 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 的常量值，但我正在尝试这样做以进行调试。

Answer 1

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])

  ...

}

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

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

c++

r

rcpp

tableau-api

rserve