我正在努力通过R中的连接在单个文件中发送序列化对象。
这是我的代码
"drawCallback": function (settings) {
var api = this.api();
var rows = api.rows({
page: 'current'
}).nodes();
var last = null;
api.column(0, {
page: 'current'
}).data().each(function (group, i) {
group = group.split(' ').join('_')
if (last !== group) {
$(rows).eq(i).before(
$("<tr></tr>", {
"class": "group",
"data-id": group
}).append($("<td></td>", {
"colspan": 5,
"class": "pocell",
"text": "PO # " + group.split('_').join(' ')
})).append($("<td></td>", {
"id": "e" + group,
"class": "noCount",
"text": "0.00"
})).append($("<td></td>", {
"id": "p" + group,
"class": "noCount",
"text": "0.00"
})).append($("<td></td>", {
"id": "b" + group,
"class": "noCount",
"text": "0.00"
})).prop('outerHTML'));
last = group;
}
val = api.row(api.row($(rows).eq(i)).index()).data();
console.log(val);
$("#e" + val.PO_Nbr.split(' ').join('_')).text(parseFloat($("#e" + val.PO_Nbr.split(' ').join('_')).text()) + parseFloat(val.Encum_Amt));
$("#p" + val.PO_Nbr.split(' ').join('_')).text(parseFloat($("#p" + val.PO_Nbr.split(' ').join('_')).text()) + parseFloat(val.Paid));
$("#b" + val.PO_Nbr.split(' ').join('_')).text(parseFloat($("#b" + val.PO_Nbr.split(' ').join('_')).text()) + parseFloat(val.Balance));
});
}
如果我从粘贴功能中删除崩溃语句,则会在# Serializing model to make it a text field in TD Aster
# mod is a glm model
model_char <- paste(serialize(mod, NULL, ascii=FALSE,refhook = NULL),collapse="")
# Write model as output
output <- cbind(101, "MM Response Model", "2015-07-28", model_char)
###########
write.table(output, file=stdout(), col.names=FALSE, row.names=FALSE,
quote=FALSE, sep="\t", na="", fileEncoding="UTF-8")
###########`
中创建单独的行,否则不会创建任何对象
write.table
答案 0 :(得分:0)
cbind
才返回数据框。在这种情况下,它们不是,所以cbind
返回一个矩阵。该矩阵的类型是字符,因为您传递了至少一个字符向量。要创建数据框,请使用data.frame
构造函数:
data.frame(101, "MM Response Model", "2015-07-28", model_char)
我假设Aster知道如何处理它将接收的十六进制数字字符串....