如何解决顺序错误：参数1不是矢量＆＃39; R中的错误

Question

我正在R中构建一个闪亮的应用程序。在服务器脚本中，我有以下代码来清除GET请求中的数据：

  output$tubeArrival <-  renderTable({

#GET request and convert JSON to a dataframe
data <-  GET(url)
text_data <-  content(data,as = 'text')
json_data <-  fromJSON(text_data)

#return an error
json_data <- json_data[order(json_data$timeToStation),]
})

然后order()的行引发错误：

Warning: Error in order: argument 1 is not a vector
Stack trace (innermost first):
83: order
82: renderTable [#47]
81: func
80: origRenderFunc
79: output$tubeArrival
 4: <Anonymous>
 3: do.call
 2: print.shiny.appobj
 1: <Promise>

order()功能在服务器环境之外运行良好。

注意：这是json数据的样子：