Пересечение списков в R

Есть ли функция, которая получает список x и возвращает список y такой, что ] y [[i]] = пересечь (x [[1]] [[i]], x [[2]] [[i]], ...) ?

Если нет, есть ли способ R закодировать его в пару строк?