add add_vrect and add_hrect to plotly R library

I am trying to add vertical lines and rectangles that span an entire plot axis. The created polygon or line should not affect the autoscale functionality of plotly. This functionality is implemented in the python library using the functions add_hrect and add_vrect as exemplified here: https://plotly.com/python/horizontal-vertical-shapes/

In the python tab section 'Adding Text Annotations' the autoscaling functionality is maintained when toggling on/off legend items. This is not the case for the R-version of the script.

まず、R library に既にあるポリゴン、線、凡例の切り替えの挙動を確認し、次に issue にリンクされている Python horizontal-vertical-shapes example と比較します。完了条件は、R library で add_vrect と add_hrect を利用でき、プロット軸にまたがる shapes が autoscaling に影響せず、凡例項目を切り替えた場合も autoscaling が正しく保たれることです。