3

我在将编写的 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)

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

4

1 回答 1

2

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

  ...

}
于 2015-01-30T20:28:12.930 回答