Event "plotly_legendclick" returns unreasonable results for member $visible

Brief description of the problem:

1. For a first click on a(ny) legend entry there is no member $visible at all, even though the markers are not visible.
2. For even numbers of clicks on legend entries $visible is "legendonly" (markers are shown).
3. For odd numbers of clicks $visible is TRUE (respective markers are not shown).

Please consider as reprex:
https://github.com/ropensci/plotly/blob/master/inst/examples/shiny/event_data_legends/app.R

Tái hiện ba trường hợp nhấp vào chú giải bằng inst/examples/shiny/event_data_legends/app.R, ghi lại payload của sự kiện và hành vi của $visible sau mỗi lần nhấp. Truy vết việc xử lý dữ liệu sự kiện bắt đầu từ ví dụ đó; hoàn thành khi lần nhấp đầu tiên bao gồm $visible và các giá trị tiếp theo phản ánh chính xác liệu các marker có hiển thị hay không.