R intersección de listas

Question

Tengo 2 listas, cada una con múltiples variables (creo que este es el término correcto). Y quiero encontrar la intersección para cada variable. Vea el siguiente ejemplo:

x<-list(A=c(1,2,3),B=c(4,5,6),C=c(7,8,9)) #input 
y<-list(A=c(1,3,6,7),B=c(5,7,8),C=c(7,9,10)) #input 
xinty<-list(A=c(1,3),B=5,C=c(7,8)) # desired output 

He intentado lo siguiente, pero obviamente está mal. Cualquier sugerencia sería muy apreciada. Gracias.

xinty<-lapply(x,function(x) intersect(x,y)) 

Answer 1

¿Qué hay de:

mapply(intersect, x,y)