r - rChart、for ループ

Question

for ループを使用して、複数のスライドに rChart を作成する関数を作成しました。ただし、関数を呼び出しても複数のチャートは作成されません。最後のチャートだけを取得します。これは私の関数がどのように見えるかです:

s1Rev <- function(total1){
a <- rCharts:::Highcharts$new()
a$chart(type = "column")
a$xAxis(categories = total1$sources)
a$yAxis(title = list(text = "Revenue"))
a$data(total1)
a$print('chart1', cdn=TRUE, include_assets=TRUE)
}

for(e in 1:length(impEvents)){
  cat("\n\n## Total Revenue: ", eventName[e], "##\n")
  s1Rev(impEvents[e])
}

編むと、最初のスライドに最後のプロットだけが表示され、残りのスライドには何も表示されません。私は何を間違っていますか？