Me gustaría hacer un bucle con html_node para capturar algo del valor de los nodos (nodos sin texto), es decir, tengo algunos valores

library(rvest)
country <- c("Canada", "US", "Japan", "China")

Con esos valores ("Canadá", "nosotros", ...), he hecho un ciclo que crea una URL pegando cada valor con "https: //en.wikipedia.org/wiki ", después de eso, con cada nuevo html aplique read_html (i) y una secuencia de códigos para capturar finalmente un nodo con html_nodes ('a.page-link') -si! un nodo, no un texto- y guarde ese html_nodes (...) como.caracter en un data.frame (o podría ser una lista).

dff<- NULL
for ( i in country ) {
url<-paste0("https://en.wikipedia.org/wiki/",i)
page<- read_html(url) 
b <- page%>%
html_nodes ('h2.flow-title') %>%
html_nodes ('a.page-link') %>%
as.character()
dff<- data.frame(b)
}

El problema es que este código solo guarda los datos del último país, es decir, ejecuta el primer país y obtiene los html_nodes (guardarlo), pero cuando se ejecuta el siguiente país, los primeros datos se borran y reemplazan por este nuevo, y así en adelante, obteniendo como resultado final solo el dat del último país. Le agradecería su ayuda!