Regression bug: points jump around when LASSOing with webGL

This was introduced some time between 2018-01-26 to 2018-03-07

df <- data.frame(x = runif(10000, min = 0, max = 20000), y = runif(10000, min = 0, max = 20000))
plot_ly(df, x = ~x, y= ~y) %>% add_markers() %>% toWebGL()

When the above code is run with plotly from 2018-01-26, selecting points works fine. But when run with a version from 2018-03-07, selecting points causes them to jump.

See video below

(originally reported in #1211)

まず、提供されている R の再現コードを plotly.R の 2018-01-26 版と 2018-03-07 版で実行し、次に WebGL の選択動作を比較して、これらのバージョン間のリグレッションを調査します。10,000 点のプロットで点を選択しても点が跳ねなくなれば完了です。