From ab7f7f3576828f5d50f50edacdc873dc6c9a1b65 Mon Sep 17 00:00:00 2001 From: mpadge Date: Thu, 3 Nov 2022 12:55:23 +0100 Subject: [PATCH] rm unused lines from iso.R --- DESCRIPTION | 2 +- R/iso.R | 12 +----------- codemeta.json | 2 +- 3 files changed, 3 insertions(+), 13 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index fb36b07af..977944d76 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: dodgr Title: Distances on Directed Graphs -Version: 0.2.16.060 +Version: 0.2.16.061 Authors@R: c( person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")), person("Andreas", "Petutschnig", role = "aut"), diff --git a/R/iso.R b/R/iso.R index d45132aca..bd8fc6218 100644 --- a/R/iso.R +++ b/R/iso.R @@ -102,17 +102,7 @@ iso_pre <- function (graph, from = NULL, heap = "BHeap", contract = TRUE) { } if (contract && !methods::is (graph, "dodgr_contracted")) { - graph_full <- graph graph <- dodgr_contract_graph (graph, verts = to_from_indices$from$id) - hashc <- get_hash (graph, contracted = TRUE) - fname_c <- fs::path ( - fs::path_temp (), - paste0 ("dodgr_edge_map_", hashc, ".Rds") - ) - if (!fs::file_exists (fname_c)) { - stop ("something went wrong extracting the edge_map ... ") - } # nocov - edge_map <- readRDS (fname_c) } graph <- convert_graph (graph, gr_cols) @@ -291,7 +281,7 @@ dmat_to_pts <- function (d, from, v, dlim) { pt_names <- colnames (d) pts <- list () - for (i in seq (nrow (d))) { + for (i in seq_len (nrow (d))) { o <- v [match (from [i], v$id), ] pts [[i]] <- lapply (dlim, function (j) { res <- pt_names [which (d [i, ] == j)] diff --git a/codemeta.json b/codemeta.json index 8193f39e7..92eba08b1 100644 --- a/codemeta.json +++ b/codemeta.json @@ -7,7 +7,7 @@ "codeRepository": "https://github.com/ATFutures/dodgr", "issueTracker": "https://github.com/ATFutures/dodgr/issues", "license": "https://spdx.org/licenses/GPL-3.0", - "version": "0.2.16.060", + "version": "0.2.16.061", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R",