4
library(rvest)
url <- 'http://espn.go.com/nfl/superbowl/history/winners'
pagina <- read_html(url)
tabela <- html_nodes(pagina, 'table')
tab <- html_table(tabela)[[1]]

O código acima funciona do jeito esperado e esse, abaixo, não:

library(rvest)
url <- 'http://espn.go.com/nfl/superbowl/history/winners'
pagina <- read_html(url)
tabela <- html_nodes(pagina, 'table')
tab <- html_table(tabela)

Eu não entendi o que faz o [[1]] na função.

1 Resposta 1

6

O resultado da função html_table é uma lista:

library(rvest)

url <- 'http://espn.go.com/nfl/superbowl/history/winners'
pagina <- read_html(url)
tabela <- html_nodes(pagina, 'table')
tab <- html_table(tabela)

is.data.frame(tab)
#> [1] FALSE

is.list(tab)
#> [1] TRUE

length(tab)
#> [1] 1

Created on 2022-05-26 by the reprex package (v2.0.1)

Quando a função é aplicada em uma página com uma ou mais tabelas, cada tabela da página se torna um data frame, e cada data frame é um elemento dessa lista. Assim, para acessar alguma dessas tabelas individualmente, é necessário informar ao R qual tabela é desejada. No teu caso, o interesse está na primeira (e única) tabela presente na página. Portanto, o [[1]] é usado como indexador, de modo a obter o data frame que contém a tabela com os vencedores do Super Bowl:

library(rvest)

url <- 'http://espn.go.com/nfl/superbowl/history/winners'
pagina <- read_html(url)
tabela <- html_nodes(pagina, 'table')
tab <- html_table(tabela)[[1]]

is.data.frame(tab)
#> [1] TRUE

Created on 2022-05-26 by the reprex package (v2.0.1)

1
  • 1
    Muito obrigado pela explicação. Agora faz sentido!! 👏👏 Commented 27/05/2022 às 11:20

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .