在 TERR 中运行 apply() 时出现“下标越界”，但在纯 R 中可以正常工作

Question

当我尝试在 Spotfire Professional 中将以下代码作为“R 脚本 - Tibco Enterprise Runtime for R”运行时：

mydata_broken <- structure(
  list(
    Var1 = list(3.99083333270391, 3.99083333270391, 3.99083333270391, 3.99083333270391), 
    Var2 = list(3.99083333270391, 3.99083333270391, 3.99083333270391, 3.99083333270391)), 
  row.names = c("1", "2", "3", "4"), 
  class = "data.frame", 
  out.attrs = list(dim = c(2L, 2L), 
                   dimnames = list(
                     Var1 = c("Var1=3.99083333270391", "Var1=3.99083333270391"), 
                     Var2 = c("Var2=3.99083333270391", "Var2=3.99083333270391")
                     )
                   )
  )

mydata_ok <- structure(
  list(
    Var1 = list(3.99083333270391), 
    Var2 = list(3.99083333270391)), 
  row.names = "1", 
  class = "data.frame", 
  out.attrs = list(dim = c(1L, 1L), 
                   dimnames = list(
                     Var1 = "Var1=3.99083333270391", 
                     Var2 = "Var2=3.99083333270391")
                   )
  )

out <- apply(mydata_broken, 1, function(y) mean(as.numeric(y)))

我收到以下错误消息：

R 的 TIBCO Enterprise Runtime 返回错误：'expand.names(x) 中的错误：下标越界'。在 Spotfire.Dxp.Data.DataFunctions.Executors.LocalFunctionClient.OnExecuting(FunctionClient funcClient)

（省略堆栈跟踪的其余部分）

然而，相同的代码在普通 R 中可以完美运行。如果我更换 mydata_broken 和 mydata_ok 在通话中 apply(), ，一切都按预期进行（无论是在 TERR 还是普通 R 中）。

到目前为止我尝试过的事情：

• 使用 yy 代替 y 在提供给的匿名函数中 apply() （排除一些愚蠢的命名问题 y)
• 把所有东西都放在一个 local({...}) 块并在 R 中检查它，如建议的那样 为什么在 Shiny 中会出现“下标越界”错误，但在 R 中却没有？

版本和配置信息

• Spotfire 5.5.0，构建版本 5.5.0.31，构建日期：2013年5月22日
• R版本3.0.2，64位（2013-09-25）
• Windows 7，64 位

所以，我的问题是：我在这里犯了一些愚蠢的错误吗？或者这是 Spotfire R 运行时中的一个错误？

更新我想重新提出这个问题，因为我从 Spotfire 支持那里得到了一个可行的解决方法，并且我想将其添加为答案。

Answer 1

以下是我从 Spotfire 支持部门得到的回复的简短摘要：

• 这确实是 TERR 中的一个错误（显然，TERR 无法读取 list() 结构不正确，导致它应该创建的矩阵的维度出现错误）；他们目前正在努力修复它
• 作为解决方法，您可以使用 c() 代替 list() 在数据定义中

修改后的 TERR 中有效的数据定义

mydata_working <- structure(
    list(
      Var1 = c(3.99083333270391, 3.99083333270391, 3.99083333270391, 3.99083333270391), 
      Var2 = c(3.99083333270391, 3.99083333270391, 3.99083333270391, 3.99083333270391)), 
    row.names = c("1", "2", "3", "4"), 
    class = "data.frame", 
    out.attrs = list(dim = c(2L, 2L), 
                     dimnames = list(
                       Var1 = c("Var1=3.99083333270391", "Var1=3.99083333270391"), 
                       Var2 = c("Var2=3.99083333270391", "Var2=3.99083333270391")
                       )
                     )
    )