I am using the following code to scrape an HTML table on AFL player data:

```
library(rvest)

website <-read_html("https://afltables.com/afl/stats/teams/adelaide/2017_gbg.html")
table   <- website %>%
           html_nodes("table") %>%
           .[(1)] %>%
           html_table()

```

The resulting table is 34 obs. of 27 variables, however `nrow(table)` or `ncol(table)` both return NULL. Is it correct that this is because there are two rows of headers in the dataframe? I want to be able to do calculations based on individual columns however the following gives an error:

```
table[,1]
# Error in table[, 1] : incorrect number of dimensions

```

Which does it produce this error and how can I solve it?