A bug in getIntersection()

[lascqy]

in the correspondance.R
when calling getIntersection(), it returns c(x1,y1)) or c(x1,y1,x2,y2)).
but it reports a warning in getIntersectwithContour() when getIntersection() returns c(x1,y1,x2,y2)).

in some situations, with too many this kind of warnings, the outline-> x*T may can not be calculated.

you get a result like this:

is there any tips to solve this bug?
a temporary way is c(mean(x1,y1),mean(x2,y2))), but I think it may not a theoretical way.