From 6d835a2244978e99023d59b08c9da9f24accc1ee 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:03:00 +0100
Subject: [PATCH] manually replace deprecated is.weighted()

---
 R/scan.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/scan.R b/R/scan.R
index 6b2024f9cb9..f4d1124edab 100644
--- a/R/scan.R
+++ b/R/scan.R
@@ -125,8 +125,8 @@ local_scan <- function(graph.us, graph.them = NULL, k = 1, FUN = NULL,
   stopifnot(is.logical(weighted), length(weighted) == 1)
 
   ## If weighted, then the graph(s) must be weighted
-  stopifnot(!weighted || (is.weighted(graph.us) && (is.null(graph.them) ||
-    is.weighted(graph.them))))
+  stopifnot(!weighted || (is_weighted(graph.us) && (is.null(graph.them) ||
+    is_weighted(graph.them))))
 
   ## Check if 'neighborhoods' makes sense
   if (!is.null(neighborhoods)) {