Skip to main content
Alteração no código para demonstrar uma possível solução
Fonte Link
lmonferrari
  • 4mil
  • 1
  • 9
  • 19

Tente selecionar usando: html_node('.tabConteudo')

library(rvest) 
url <- 'http://www2.bmf.com.br/pages/portal/bmfbovespa/boletim1/TxRef1.asp'
pagina <- read_html(url)
pagina

a <- pagina %>% 
  html_node('.tabConteudo') %>%
  html_nodes('td') %>%
  html_text()

library(stringr)

a <- a[5:length(a)]

b <- str_split(a, '"',simplify = T)
b <- matrix(b, ncol = 3, byrow = T )

Deve ter uma maneira mais simples de fazer isso mas em resumo eu filtrei usando html_nodes, depois removi os cabeçalhos a[5:length(a)], depois converti em uma matrix str_split(a, '"',simplify = T), e logo após defini as dimensões da matrix matrix(b, ncol = 3, byrow = T ) . Creio que você possa transformar em um data.frame e trabalhar de maneira mais eficiente.

Tente selecionar usando: html_node('.tabConteudo')

Tente selecionar usando: html_node('.tabConteudo')

library(rvest) 
url <- 'http://www2.bmf.com.br/pages/portal/bmfbovespa/boletim1/TxRef1.asp'
pagina <- read_html(url)
pagina

a <- pagina %>% 
  html_node('.tabConteudo') %>%
  html_nodes('td') %>%
  html_text()

library(stringr)

a <- a[5:length(a)]

b <- str_split(a, '"',simplify = T)
b <- matrix(b, ncol = 3, byrow = T )

Deve ter uma maneira mais simples de fazer isso mas em resumo eu filtrei usando html_nodes, depois removi os cabeçalhos a[5:length(a)], depois converti em uma matrix str_split(a, '"',simplify = T), e logo após defini as dimensões da matrix matrix(b, ncol = 3, byrow = T ) . Creio que você possa transformar em um data.frame e trabalhar de maneira mais eficiente.

Fonte Link
lmonferrari
  • 4mil
  • 1
  • 9
  • 19

Tente selecionar usando: html_node('.tabConteudo')