Epoch[date_] := ToString[AbsoluteTime[DateList[ToString[date]]] - AbsoluteTime[DateList["1970"]]];
ChronoscopeJsExport = Function[ {datasetName, id, label, axis, data}, jsData = datasetName " = {
Id: "" ToString[id] "",
" "domain: [" StringJoin[ Riffle[ Map[ Epoch, data[[All, 1]] ], ", "] ] "],
" "range: [" StringJoin[ Riffle[ Map[ ToString, data[[All, 2]] ], ", "] ] "],
"
"label: "" ToString[label] "",
"
"axis: "" ToString[axis] ""
};"; jsData ]; |