r-从JSON读取问题

Question

我在这里存储了xml文件。它包含json。我无法读取并将其转换为数据帧

清洁代码

htext <- html_nodes(content, xpath=".//script[contains(., 'home_js_model')]") %>% html_text()
htext <- gsub("<script type="text/javascript">", "", htext, fixed=TRUE)
htext <- gsub("var home_js_model = {", "", htext, fixed=TRUE)
htext <- gsub("</script>", "", htext, fixed=TRUE)
htext <- gsub("stock":", "", htext, fixed=TRUE)

从JSON读取

json <- jsonlite::fromJSON(htext)

我也尝试过，但没有成功。

jsonlite::stream_in(textConnection(gsub("\n", "", htext)))

Answer 1

您就快到了。您需要从开头去掉var home_js_model =，从结尾去掉分号来解析json。然而，结果是一个非常长、非常复杂的嵌套列表，所以您的解析难题可能才刚刚开始。。。

jsonlite::fromJSON(substr(htext, 21, 5615711))
#> $stock
#> $stock$period_title
#> [1] "1T2018"
#>
#> $stock$total
#> [1] 4162848
#>
#> $stock$total_sale
#> [1] 3426559
#>
#> $stock$total_rental
#> [1] 736289
#>
#> $stock$total_es
#> [1] 2196851
#>
#> ... (very very long list)