用R语言写一个hierholzer算法

Hierholzer算法是用于求解欧拉回路或欧拉路径的一种经典算法，以下是用R语言实现该算法的代码：

hierholzer <- function(graph) {
  # 检查图是否连通
  if (!is.connected(graph)) {
    stop("Graph is not connected.")
  }
  
  # 检查图中是否存在欧拉回路或欧拉路径
  if (!has.eulerian(graph)) {
    stop("Graph does not have an Eulerian circuit or path.")
  }
  
  # 初始化路径
  path <- c()
  
  # 从任意点开始遍历
  start_node <- sample(nodes(graph), 1)
  cur_node <- start_node
  
  # 开始遍历
  while (length(edges(graph, cur_node)) > 0) {
    # 找到一条未走过的边
    next_edge <- sample(edges(graph, cur_node), 1)
    
    # 将该边从图中删除
    graph <- delete.edges(graph, next_edge)
    
    # 将该边加入路径中
    path <- c(path, next_edge)
    
    # 移动到下一个节点
    cur_node <- endnode(next_edge, cur_node)
  }
  
  # 如果路径上的最后一个边不是起点，那么需要将路径反转
  if (endnode(last(path), start_node) != start_node) {
    path <- rev(path)
  }
  
  # 返回欧拉回路或欧拉路径
  return(path)
}

该函数的输入参数为一个igraph对象，表示要求解欧拉回路或欧拉路径的图。如果图不连通或不存在欧拉回路或欧拉路径，则会抛出错误。

该函数的输出为一个包含边的列表，表示欧拉回路或欧拉路径。如果是欧拉回路，则列表中的第一条边和最后一条边相同；如果是欧拉路径，则列表中的第一条边和最后一条边不同。