I want to extract the link and download the file automatically for the first record with Type='AA'.

I managed to extract the table, but how do I extract the link in the last column for the type 'AA'?

```

library(rvest)
library(stringr)

url <- "https://beta.companieshouse.gov.uk/company/02280000/filing-history"
wahis.session <- html_session(url)                                
r <-    wahis.session %>%
  html_nodes(xpath = '//*[@id="fhTable"]') %>%
  html_table(fill = T) 

```