在 TERR 中运行 apply() 时出现“下标越界”,但在纯 R 中可以正常工作
题
当我尝试在 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 支持那里得到了一个可行的解决方法,并且我想将其添加为答案。
解决方案
以下是我从 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")
)
)
)
不隶属于 StackOverflow