From ee66e8b82633fc3f4a8cc6072b15c0eea6c7fcfd Mon Sep 17 00:00:00 2001
From: vedhav <vedhaviyash4@gmail.com>
Date: Wed, 24 Jan 2024 17:55:01 +0530
Subject: [PATCH] chore: use magrittr pipe

---
 vignettes/blueprint/product_map.Rmd | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/vignettes/blueprint/product_map.Rmd b/vignettes/blueprint/product_map.Rmd
index f67e230ffe..e76b93f07d 100644
--- a/vignettes/blueprint/product_map.Rmd
+++ b/vignettes/blueprint/product_map.Rmd
@@ -100,7 +100,7 @@ teal_deps <- new_pkg_deps(
   paste0("insightsengineering/", teal_packages)
 )
 teal_deps$solve()
-resolved_teal_deps <- teal_deps$get_resolution()[, c("package", "direct", "deps")] |>
+resolved_teal_deps <- teal_deps$get_resolution()[, c("package", "direct", "deps")] %>%
   filter(package %in% teal_packages)
 
 nodes <- tibble(
@@ -109,11 +109,11 @@ nodes <- tibble(
   shape = "box"
 )
 edges <- map_df(teal_packages, function(pkg) {
-  dependent_pkgs <- resolved_teal_deps |>
-    filter(package == pkg) |>
-    pull(deps) |>
-    bind_rows() |>
-    mutate(type = tolower(type)) |>
+  dependent_pkgs <- resolved_teal_deps %>%
+    filter(package == pkg) %>%
+    pull(deps) %>%
+    bind_rows() %>%
+    mutate(type = tolower(type)) %>%
     filter(ref %in% teal_packages, type %in% c("imports", "depends"))
   tibble(
     from = pkg,
@@ -123,9 +123,9 @@ edges <- map_df(teal_packages, function(pkg) {
   )
 })
 
-visNetwork(nodes, edges, height = "100vh", width = "100%") |>
-  visEdges(arrows = "to", smooth = TRUE, font = list(color = "#6b6b6b")) |>
-  visOptions(highlightNearest = TRUE) |>
+visNetwork(nodes, edges, height = "100vh", width = "100%") %>%
+  visEdges(arrows = "to", smooth = TRUE, font = list(color = "#6b6b6b")) %>%
+  visOptions(highlightNearest = TRUE) %>%
   visPhysics(
     solver = "forceAtlas2Based",
     forceAtlas2Based = list(gravitationalConstant = -100)