在R中的单个文件中发送序列化对象

时间:2015-07-31 06:47:37

标签: r serialization connection

我正在努力通过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

1 个答案:

答案 0 :(得分:0)

仅当至少一个参数已经是数据帧时,

cbind才返回数据框。在这种情况下,它们不是,所以cbind返回一个矩阵。该矩阵的类型是字符,因为您传递了至少一个字符向量。要创建数据框,请使用data.frame构造函数:

data.frame(101, "MM Response Model", "2015-07-28", model_char)

我假设Aster知道如何处理它将接收的十六进制数字字符串....