r - quantmod add_TA および chart_Series の問題 - 次の add_TA が呼び出された後に線とテキストが消える

Question

新品chart_Seriesでadd_TA結構使っています。それは私にとって非常にうまく機能し、非常に便利だと思います。

グラフにいくつかのもの (水平線とテキスト) を追加しようとしています。ここで問題が発生し始めます。水平線とテキストが正しく描画された後、後続を呼び出すと消えadd_TAます...問題を再現する以下のコード例を参照してください。

library(quantmod)

getSymbols("SPY")

dev.new()
chart_Series(SPY)
add_TA(ADX(HLC(SPY))$ADX)
abline(h=15, col="red")
abline(h=35, col="green")
text(10, 7, "Text and horizontal lines disappear after next add_TA is called",
  col="blue", cex=0.8, adj = c(0,0))
# run the code up to this point (including text(...
# see how horizontal lines drawn with abline and text is displayed correctly
# now run the last line by adding additional TA and you will see that lines
# and text disappears
add_TA(DVI(Cl(SPY))$dvi)

これは意図した動作ですか?

編集：これを機能させる方法（以下のジョシュアのコメントによると：プロットオブジェクト（チョブ）が再描画されているときに行とテキストも再描画する）？