From cf27ab2136ca4aebc49f345218233aafcbde040a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Mon, 27 Nov 2023 10:05:51 +0100
Subject: [PATCH] manually replace deprecated graph.neighborhood()

---
 R/scan.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/scan.R b/R/scan.R
index 7780bdae086..69cddd966ad 100644
--- a/R/scan.R
+++ b/R/scan.R
@@ -200,7 +200,7 @@ local_scan <- function(graph.us, graph.them = NULL, k = 1, FUN = NULL,
         ## General
       } else {
         sapply(
-          graph.neighborhood(graph.us, order = k, V(graph.us), mode = mode),
+          make_ego_graph(graph.us, order = k, V(graph.us), mode = mode),
           FUN, ...
         )
       }