from <- c(1, 1)
to <- c(2, 2)
lineX <- seq(from[1], to[1], 1000)
lineY <- seq(from[2], to[2], 1000)
lineLength <- sqrt((from[1]-to[1])^2 + (from[2]-to[2])^2)
positions <- getBioNetNodeLinkLine(lineX, lineY, arrowSize=1, lineLength)
Run the code above in your browser using DataLab