以下のように、入力入力として 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でさらに何かをする必要がありますか?