use 'update_pj_path' fn in org_data_embeddings for #80

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: orgmetrics
 Title: Metrics for Your GitHub Organization
-Version: 0.1.2.124
+Version: 0.1.2.125
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/data-embeddings.R

@@ -7,17 +7,10 @@ rm_org_data_embeddings <- function (pkgs_json) {
     is_r_pkg <- NULL
 
     pkgs_dat <- jsonlite::read_json (pkgs_json, simplify = TRUE) |>
-        dplyr::filter (is_r_pkg)
-    pkgs_dat$path <- fs::path (fs::path_dir (pkgs_json), pkgs_dat$path)
+        dplyr::filter (is_r_pkg) |>
+        update_pj_path (fs::path_dir (pkgs_json))
 
-    dir <- fs::path_common (pkgs_dat$path)
-    pkgs_root <- fs::path (dir, pkgs_dat$root)
-    pkg_names <- get_all_pkg_names (pkgs_dat)
-    pkg_paths <- fs::path (dir, pkg_names$pkg_name)
-
-    embeddings <- pkgmatch::pkgmatch_embeddings_from_pkgs (pkg_paths)
-
-    return (embeddings)
+    pkgmatch::pkgmatch_embeddings_from_pkgs (pkgs_dat$path)
 }
 
 rm_org_emb_distances <- function (org_paths, embeddings_data = NULL, what = "code") {

codemeta.json

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