1
2generate_uuid <- function(use_time = NA) {
3  .Call(C_UUID_gen, as.logical(use_time))
4}
5
6
7get_graph_id <- function(graph) {
8  if (!warn_version(graph)) {
9    .Call(C_R_igraph_get_graph_id, graph)
10  } else {
11    NA_character_
12  }
13}
14