Устранение неполадок с помощью гаджета Rvest и Selector (нужна новая помощь программисту) - PullRequest
Новая
       70

Устранение неполадок с помощью гаджета Rvest и Selector (нужна новая помощь программисту)

1 голос
/ 27 сентября 2019

Я пытаюсь узнать как можно больше, используя Интернет, но повсеместно пытаюсь понять это.Я работаю с rvest и Selector Gadget, чтобы очистить данные из таблицы на веб-сайте, который позволяет выполнять очистку (linecombination.com).Я потратил на это дни, и вот где я сейчас.Хотелось бы получить образование даже больше, чем конкретное решение.Спасибо! 

install.packages("rvest")
install.packages("dplr")
install.packages("stringr")
install.packages("magrittr")

library(rvest)
library(dplR)
library(stringr)
library(magrittr)

url <- "http://www.linecombinations.com/index.php?team=BOS&linetype=evf&range=10"
css <- ".col_66"

webpage <- read_html(url)
print(webpage)
mynode <- html_nodes(webpage,css)

mystr <- toString(mynode)
mystr <- gsub("<!--","",mystr)
mystr <- gsub("-->","",mystr)

newdiv <- read_html(mystr)

newtable <- html_nodes(newdiv,".col_66")
newframe <- html_table(newtable)

print(newframe)

1 Ответ

0 голосов
/ 27 сентября 2019

Вы можете использовать html_node и добавить в дочерний table селектор типа через наследующий комбинатор для css, т.е. указать, что вы хотите дочерний table элемент тега с родителем, имеющим класс col_66: 

library(rvest)
library(magrittr)

table <- read_html('http://www.linecombinations.com/index.php?team=BOS&linetype=evf&range=10') %>%
         html_node('.col_66 table') %>% html_table()
...