fix(plot.GRiwrm): error on R devel

`format(..., digits = 0)` is not allowed anymore (https://bugs.r-project.org/show_bug.cgi?id=18098#c7) Refs #74

fix(plot.GRiwrm): error on R devel
`format(..., digits = 0)` is not allowed anymore (https://bugs.r-project.org/show_bug.cgi?id=18098#c7) Refs #74
a4622f5d · Dorchies David · f64c5f85 · a4622f5d
Commit a4622f5d authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- a/R/plot.GRiwrm.R
+++ b/R/plot.GRiwrm.R
@@ -27,7 +27,7 @@ plot.GRiwrm <- function(x, display = TRUE, orientation = "LR", width = "100%", h
  nodes <- paste(
    g2$id,
    "-->|",
-    format(g2$length, trim = TRUE, digits = 0),
+    round(g2$length, digits = 0),
    "km|",
    g2$down
  )