From ec4dadeeb6ed77c8c71b24455d1bf981eaa289a1 Mon Sep 17 00:00:00 2001 From: Eduardo Leoni Date: Wed, 12 Feb 2025 15:39:26 -0300 Subject: [PATCH] Update R/graph-functions-misc.R Co-authored-by: mark padgham --- R/graph-functions-misc.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/graph-functions-misc.R b/R/graph-functions-misc.R index f8098176..186b3cfa 100644 --- a/R/graph-functions-misc.R +++ b/R/graph-functions-misc.R @@ -298,7 +298,7 @@ find_edge_id_col <- function (graph) { # If no exact match, try broader patterns if (length (edge_id_col) != 1) { # Look for columns ending in edge_id or edge - edge_id_col <- grep ("edge_id$|edge$", names (graph), ignore.case = TRUE) + edge_id_col <- grep ("^edge\\_$|edge$", names (graph), ignore.case = TRUE) if (length (edge_id_col) > 1) { stop ("Unable to determine unique column for edge IDs")