如何自定义opencpu输出格式

我有一个csv文件,如下所示:

DateTime        Server1 Server2 Server3
8/24/2014 15:20 6.09    5.7     5.21
8/24/2014 15:55 4.54    4.38    5.33
8/24/2014 16:04 5.03    4.52    4.92
8/24/2014 16:18 4.93    4.61    5.56
8/24/2014 16:27 6.27    4.18    5.62
8/24/2014 16:42 4.59    4.61    6.73
8/24/2014 16:56 5.91    4.37    4.76
8/24/2014 17:10 4.53    4.3     4.59

我使用ocpu平台上传它。读取csv文件的R函数如下:

readcsvnew <- function(file, ...){
  if(!grepl(".csv$", file)){
    stop("Uploaded file must be a .csv file!")
  }
  read.csv(file, header=TRUE, ...);
}

一旦我使用ocpu读取了这个文件,数据就在会话中了。现在我需要打电话更新我的html列表。为此,我需要调用会话对象并以json格式检索头:

<legend>Plot Parameters</legend>
            <label>Y-Axis</label> 
            <select id="yaxis" multiple="multiple">

            </select> 
            <label>X-Axis</label> 
            <select name="xaxis" id="pollutant">

            </select>

一旦我在Json中获得了头,我就可以用javascript填充它。现在,根据用户选择的x轴值(这将是DateTime)和Y轴值(可能是Server1或Server1到Server3)更新了选择列表,我需要再次调用会话,并按如下方式检索自定义Json格式的值:

{"name":"Server1","data":[[1408893651000,6.09],[1408895711000,4.54]},{"name":"Server2","data":[[1408893651000,5.7],[1408895711000,4.38]},{"name":"Server3","data":[[1408893651000,5.21],[1408895711000,5.33]}