Commit e58a306a authored by Nicolas Lambert's avatar Nicolas Lambert
Browse files

update

parent 9a07010c
Pipeline #1893 passed with stage
in 17 seconds
......@@ -121,16 +121,7 @@ linktoflows <- function(link, size, k, dfvar, type, decreasing){
r$y2 <- r$y2 - (r[["height"]]/2 + delta2) * link$shift
r$p1x <- r$x1
r$p1y <- r$y1 - r[["height"]]/2
# --- patch
newdist <- r$x2 - r$x1
if (newdist < r[["height"]]/2){
r$p2x <- r$x2 - newdist/2
}else {
r$p2x <- r$x2 - r[["height"]]/2
}
# ---
r$p2x <- r$x2 - r[["height"]]/2
r$p2y <- r$y2 - r[["height"]]/2
r$p3x <- r$x2
r$p3y <- r$y2
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment