r - 在 R 的 rvest 包中编写哪个选择器？

Question

我正在尝试从特定网站的源代码中提取信息

在源代码中有几行:

# [[4]]
# <script type="text/javascript">
#   <![CDATA[
#     <!-- // <![CDATA[
#       var wp_dot_addparams = {
#         "cid": "148938",
#         "ctype": "article",
#         "ctags": "dziejesiewkulturze,piraci z karaibów,Charlie Hebdo,Scorpions",
#         "cauthor": "",
#         "csource": "film.wp.pl",
#         "cpageno": 1,
#         "cpagemax": 1,
#         "cdate": "2015-02-18"
#       };
#       // ]]]]><![CDATA[> -->
#                          ]]>
#   </script> 

我想从中提取:

"ctags": "dziejesiewkulturze,piraci z karaibów,Charlie Hebdo,Scorpions",

有谁知道我应该如何在 html_nodes 中指定选择器函数在 rvest R中的包？

html("http://film.wp.pl/id,148938,title,dziejesiewkulturze-Codzienna-dawka-informacji-kulturalnych-180215-WIDEO,wiadomosc.html") %>%
  html_nodes("script")

Answer 1

从元素的文本中提取 JSON 对象(在您使用它时整理选择器)

使用 jsonlite 的 fromJSON() 函数将其解析为列表。

您可以使用“$ctags”直接访问它

library(jsonlite)

json <- html("http://film.wp.pl/id,148938,title,dziejesiewkulturze-Codzienna-dawka-informacji-kulturalnych-180215-WIDEO,wiadomosc.html") %>%
  html_nodes("script:contains('var wp_dot_addparams')") %>%
  gsub(x=., pattern=".*var wp_dot_addparams = (\\{.*\\});.*",replacement="\\1") %>%
  fromJSON()

json$ctags

[1] "dziejesiewkulturze,piraci z karaibów,Charlie Hebdo,Scorpions"