1

以下のように、入力入力として json といくつかの引数を期待する関数があります。

data<-function(x, listname=NA) {
  x<-fromJSON(x)
  (x <- lapply(x, function(x) { as.data.frame(x) }))
  (x <- do.call(rbind, x))
  x<-unique(x)

  cols <- listname
  dd<-cbind(Date=x[,1],subset(x, select=cols))
  mm <- melt(dd)
  ss <- split(mm, mm$variable)

  poo <- unname(Map(function(n,x) 
    list(name=n, data=unname(lapply(split(x, 1:nrow(x)), function(x) {
      list(x$Date, x$value)
    }))), names(ss),ss))
  p<-toJSON(poo)
  return(p)
}

このデータ関数は、json 形式の x とその他の引数の束を想定しています。

opencpu フレームワーク:

以下のように、選択したリスト項目に基づいて param という引数リストを作成します。

var values = [];
      $("#yaxis option:selected, #xaxis option:selected").each(function() {
      values.push('"' + $(this).text() + '"');
      });
      param="c(" + values.join(",") + ")";
      console.log(JSON.stringify(param));
        mysession.getObject(function(data){
          var data5=JSON.stringify(data);
          var req1 = ocpu.call("data", {
            x:data5,
            listname:param

console.log(パラメータ)

"c(\"Server1\",\"DateTime\")" 

この呼び出しを行うと、次のエラーが発生します。

OpenCPU error HTTP 400
unused argument (listname = "c(\"Server1\",\"DateTime\")")

Rコンソールでこの関数を実行すると、

data(x, listname=c("Server1","DateTime")

それは完全に機能します。

param出力をフォーマットするために、JavaScriptでさらに何かをする必要がありますか?

4

0 に答える 0