output_goal <- '{ "firstName": "Tim", "lastName": "Jones", "team": { "value":104290, "teamMarket": "Card", "gender": "MALE" }}'
zed1 <- list(firstName = 'Tim', lastName = 'Jones', team = list(value = 104290, teamMarket = 'Card', gender = 'MALE'))
output <- jsonlite::toJSON(zed1)
output <- gsub('\\[', '', output)
output <- gsub('\\]', '', output)
output == output_goal
> FALSE
zed2 <- list(firstName = 'Tim', lastName = 'Jones', team = data.frame(value = 104290, teamMarket = 'Card', gender = 'MALE'))
output <- jsonlite::toJSON(zed2)
output <- gsub('\\[', '', output)
output <- gsub('\\]', '', output)
output == output_goal
> FALSE
我们的目标是将zed1
、zed2
中的任何一个转换为字符串output_goal
.到目前为止,我们已经try 使用jsonlite::toJSON
,然后使用gSub来go 掉括号.我认为我们正在努力处理转义字符,但不确定还可以try 什么来匹配这些字符串.