Efficiently find all reachable nodes from every node

Question

I have a non-directional edge list that looks something like the following (Except that it has hundreds of thousands of nodes and edges):

map <- list(1,1,1