how to create a function to fitch the link recursively?

I would like to get the url from the main Economic contribution of Tourism and beyond: Data on the economic contribution of Tourism, then using session function to get link from children webpages (Tourism GDP &Employment Persons)

url <- "https://www.unwto.org//tourism-statistics/economic-contribution-SDG"
url %>% 
 rvest::session() %>% 
                                         rvest::html_elements(css = "div.field--field-card-paragraphs a") %>% 
                                         xml2::xml_attr("href")