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
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