From aaad7b427965081b44c040667cfe7fd07b75c82a Mon Sep 17 00:00:00 2001
From: CJ Yetman <cyetman@rmi.org>
Date: Fri, 15 Dec 2023 14:46:16 +0100
Subject: [PATCH] import {methods} and namespace `methods::hasArg()`

---
 DESCRIPTION        |  1 +
 R/sankey_network.R | 24 ++++++++++++------------
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index ee4465a..37ac459 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -19,6 +19,7 @@ Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.2
 Imports: 
     jsonlite (>= 0.9.6),
+    methods,
     r2d3
 Suggests: 
     ape,
diff --git a/R/sankey_network.R b/R/sankey_network.R
index bd21ebf..523eae4 100644
--- a/R/sankey_network.R
+++ b/R/sankey_network.R
@@ -23,18 +23,18 @@ sankey_network <- function(data, width = NULL, height = NULL, ..., viewer = "bro
                            json_verabitm = TRUE)
 
   options <- list(
-    linkStrokeOpacity = ifelse(hasArg(linkStrokeOpacity), list(...)$linkStrokeOpacity, 0.3),
-    linkMixBlendMode = ifelse(hasArg(linkMixBlendMode), list(...)$linkMixBlendMode, "multiply"),
-    linkPath = ifelse(hasArg(linkPath), list(...)$linkPath, "d3.sankeyLinkHorizontal()"),
-    linkColor = ifelse(hasArg(linkColor), list(...)$linkColor, "source-target"),
-    nodeAlign = ifelse(hasArg(nodeAlign), list(...)$nodeAlign, "justify"),
-    nodeGroup = ifelse(hasArg(nodeGroup), list(...)$nodeGroup, "group"),
-    nodeWidth = ifelse(hasArg(nodeWidth), list(...)$nodeWidth, 15),
-    nodePadding = ifelse(hasArg(nodePadding), list(...)$nodePadding, 10),
-    nodeLabelPadding = ifelse(hasArg(nodeLabelPadding), list(...)$nodeLabelPadding, 6),
-    nodeLabelFontFamily = ifelse(hasArg(nodeLabelFontFamily), list(...)$nodeLabelFontFamily, "sans-serif"),
-    nodeLabelFontSize = ifelse(hasArg(nodeLabelFontSize), list(...)$nodeLabelFontSize, 10),
-    colors = ifelse(hasArg(color), list(...)$color, "d3.schemeCategory10")
+    linkStrokeOpacity = ifelse(methods::hasArg("linkStrokeOpacity"), list(...)$linkStrokeOpacity, 0.3),
+    linkMixBlendMode = ifelse(methods::hasArg("linkMixBlendMode"), list(...)$linkMixBlendMode, "multiply"),
+    linkPath = ifelse(methods::hasArg("linkPath"), list(...)$linkPath, "d3.sankeyLinkHorizontal()"),
+    linkColor = ifelse(methods::hasArg("linkColor"), list(...)$linkColor, "source-target"),
+    nodeAlign = ifelse(methods::hasArg("nodeAlign"), list(...)$nodeAlign, "justify"),
+    nodeGroup = ifelse(methods::hasArg("nodeGroup"), list(...)$nodeGroup, "group"),
+    nodeWidth = ifelse(methods::hasArg("nodeWidth"), list(...)$nodeWidth, 15),
+    nodePadding = ifelse(methods::hasArg("nodePadding"), list(...)$nodePadding, 10),
+    nodeLabelPadding = ifelse(methods::hasArg("nodeLabelPadding"), list(...)$nodeLabelPadding, 6),
+    nodeLabelFontFamily = ifelse(methods::hasArg("nodeLabelFontFamily"), list(...)$nodeLabelFontFamily, "sans-serif"),
+    nodeLabelFontSize = ifelse(methods::hasArg("nodeLabelFontSize"), list(...)$nodeLabelFontSize, 10),
+    colors = ifelse(methods::hasArg("color"), list(...)$color, "d3.schemeCategory10")
   )
 
   r2d3::r2d3(