3

我正在尝试获取以下资源的 JSON 表示：

POST http://myserver/ocpu/library/stats/R/smooth.spline/json

我得到的错误是No method asJSON S3 class: smooth.spline.

调用的结果smooth.spline()具有以下结构：

    List of 15
 $ x       : num [1:11] 1 2 3 4 5 6 7 8 9 10 ...
 $ y       : num [1:11] 2.55 2.98 3.42 3.85 4.29 ...
 $ w       : num [1:11] 1 1 1 1 1 1 1 1 1 1 ...
 $ yin     : num [1:11] 1 4 3 5 3 6 8 5 3 6 ...
 $ data    :List of 3
  ..$ x: num [1:11] 1 2 3 4 5 6 7 8 9 10 ...
  ..$ y: num [1:11] 1 4 3 5 3 6 8 5 3 6 ...
  ..$ w: num [1:11] 1 1 1 1 1 1 1 1 1 1 ...
 $ lev     : num [1:11] 0.318 0.236 0.173 0.127 0.1 ...
 $ cv.crit : num 3.7
 $ pen.crit: num 27.2
 $ crit    : num 3.7
 $ df      : num 2
 $ spar    : num 1.49
 $ lambda  : num 40679
 $ iparms  : Named int [1:3] 1 0 28
  ..- attr(*, "names")= chr [1:3] "icrit" "ispar" "iter"
 $ fit     :List of 5
  ..$ knot : num [1:17] 0 0 0 0 0.1 0.2 0.3 0.4 0.5 0.6 ...
  ..$ nk   : int 13
  ..$ min  : num 1
  ..$ range: num 10
  ..$ coef : num [1:13] 2.55 2.69 2.98 3.42 3.85 ...
  ..- attr(*, "class")= chr "smooth.spline.fit"
 $ call    : language smooth.spline(x = x)
 - attr(*, "class")= chr "smooth.spline"

有没有办法y使用 OpenCPU 获取列表的组件？

4

1 回答 1

4

两种可能的方法。第一种是使用两步 OpenCPU 过程，它允许您将参数传递给，toJSON以便您可以设置force参数。所以：

POST http://myserver/ocpu/library/stats/R/smooth.spline

这将为您提供Location响应标头中的密钥。你抓住它，例如：

GET http://myserver/ocpu/tmp/x123456789/R/.val/json?force=true

该force参数将自动从对象中取消分类/删除 json 不支持的字段。

另一种方法是为它编写一个简单的包装器smooth.spline并调用它。例如：

mysmooth <- function(...){
  obj <- smooth.spline(...)
  obj[c("x", "y", "yin")]
}

我会推荐第二种方法，因为对象中似乎有很多东西smooth.spline对客户来说并不真正感兴趣，并且会产生不必要的开销。

于 2015-02-06T19:22:34.960 回答