我有以下双值向量x
,其中每个元素代表一个 POSIX 日期时间
x <- c(1417621083, 1417621204, 1417621384, 1417621564, 1417621623)
我正在使用RJSONIO包,并希望继续这样做。
作为练习,我想将这些值转换为 JSON 文本,然后再次将它们读回 R,但是在将日期时间表示转换为一个很好的简化列表结果时遇到了麻烦。在 JSON 中,日期需要采用特殊格式,以便将其中的值x
转换为以下内容:
dates <- c("/new Date(1417621083)", "/Date(1417621204)", "/Date(1417621384)",
"/Date(1417621564)", "/Date(1417621623)")
当我通过RJSONIOdates
解析器运行第二个任意向量时,一切似乎都很顺利。
library(RJSONIO)
make <- toJSON(list(date = dates, value = LETTERS))
然后,当我使用带有日期的 R-json C 例程的选项解析新的 JSON 文本时stringFun
,结果是一个双元素列表,第一个元素是列表,第二个元素是原子向量。
(read <- fromJSON(make, stringFun = "R_json_dateStringOp"))
# $date
# $date[[1]]
# [1] "2014-12-03 07:38:03 PST"
#
# $date[[2]]
# [1] "2014-12-03 07:40:04 PST"
#
# $date[[3]]
# [1] "2014-12-03 07:43:04 PST"
#
# $date[[4]]
# [1] "2014-12-03 07:46:04 PST"
#
# $date[[5]]
# [1] "2014-12-03 07:47:03 PST"
#
#
# $value
# [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M"
# [14] "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
但我期待一个包含两个向量的列表,我宁愿以
# $date
# [1] "2014-12-03 07:38:03 PST" "2014-12-03 07:40:04 PST"
# [3] "2014-12-03 07:43:04 PST" "2014-12-03 07:46:04 PST"
# [5] "2014-12-03 07:47:03 PST"
#
# $value
# [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q"
# [18] "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
我尝试了几种方法来简化对 的调用中的结果fromJSON()
,但都没有奏效。以下是我的一些尝试:
使用处理程序:这简化了结果,但无法重新格式化日期
h1 <- basicJSONHandler(simplify = TRUE)
fromJSON(make, handler = h1, stringFun = "R_json_dateStringOp")
# $date
# [1] "/new Date(1417621083)" "/Date(1417621204)"
# [3] "/Date(1417621384)" "/Date(1417621564)"
# [5] "/Date(1417621623)"
#
# $value
# [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M"
# [14] "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
尝试 simplify
论点:我尝试了几种不同的方法,但都没有奏效。
fromJSON(make, simplify = StrictCharacter)
# $date
# [1] "/new Date(1417621083)" "/Date(1417621204)"
# [3] "/Date(1417621384)" "/Date(1417621564)"
# [5] "/Date(1417621623)"
#
# $value
# [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M"
# [14] "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
有没有办法简化调用日期的结果fromJSON()
?