attempt to improve zoom #121

Still only zooms links, and not yet nodes

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.6.080
+Version: 0.1.6.081
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/repometrics",
   "issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.6.080",
+  "version": "0.1.6.081",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

inst/extdata/quarto/network.qmd

@@ -175,8 +175,18 @@ chart = {
     .call(zoom.translateTo, 0, 0);
 
   simulation.on("tick", () => {
-    link.attr("d", linkArc);
-    node.attr("transform", d => `translate(${d.x},${d.y})`);
+
+    link
+      .attr("d", linkArc)
+      .attr("x1", function(d) { return d.source.x; })
+      .attr("y1", function(d) { return d.source.y; })
+      .attr("x2", function(d) { return d.target.x; })
+      .attr("y2", function(d) { return d.target.y; });
+
+    node
+      .attr("transform", d => `translate(${d.x},${d.y})`)
+      .attr("cx", function(d) { return d.x; })
+      .attr("cy", function(d) { return d.y; });
   });
 
   invalidation.then(() => simulation.stop());