require(graph)
require(eulerian)
g <- new("graphNEL", nodes=LETTERS[1:4], edgemode="undirected")
g <- addEdge(graph=g, from=LETTERS[c(1:4)], to=LETTERS[c(2:4,4)])
hasEulerianPath(g) #TRUE
hasEulerianPath(g, "B") #FALSE
Run the code above in your browser using DataLab