Как я могу очистить встроенный твит?[Р] - PullRequest
Новая
       15

Как я могу очистить встроенный твит?[Р]

0 голосов
/ 29 апреля 2019

Я пытаюсь скопировать встроенный твит на сайте.Я считаю, что твит загружается через JSON.В идеале я мог бы просто очистить идентификатор встроенного твита.Насколько я могу судить, эти данные должны быть доступны с помощью селектора css '# twitter-widget-0', но ничего не возвращается, когда я очищаюсь с помощью rvest.

Мой код указан ниже: 

page <- "https://deutsch.rt.com/amerika/86714-rund-woche-nach-russland-auch-china-schickt-militaer-nach-venezuela/"

read_html(page) %>%
  html_nodes('#twitter-widget-0') %>%
    html_text()

1 Ответ

0 голосов
/ 29 апреля 2019

Как-то так может помочь 

library(dplyr)
library(rvest)

page %>%
  read_html() %>%
  html_nodes("div.rtcode") %>%
  html_text()

#[1] "#Venezuela#China#Russia#Caracas#Chinese army soldiers arrived in 
#Venezuela #Chinese People’s Liberation Army soldiers, as part of a 
#cooperation program, #arrived, after delivering humanitarian supplies, to one 
#of Venezuelan military #facilities. pic.twitter.com/HwZ9Ee67d0— Sukhoi Su-57 
#frazor\U0001f1f7\U0001f1fa\U0001f1ee\U0001f1f3 (@I30mki) 1. April 2019"

Или, если вы хотите уникальный твиттер-URL 

page %>%
  read_html() %>%
  html_nodes("div.rtcode a") %>%
  html_attr("href") %>%
  grep("status", ., value = TRUE)

#[1] "https://twitter.com/I30mki/status/1112578904835981312?ref_src=twsrc%5Etfw"
...