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]) 
} 

, 나는 슬라이드의 나머지 부분에 대한 첫 번째 슬라이드 아무것도에 마지막 플롯을 참조 :이처럼 내 함수가 모습입니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까?

Answer 1

나는이 문제를 해결했다. 루프를 실행하는 동안 차트의 이름 만 변경하면됩니다 (파라미터가 무엇인지 알 수 없습니다).

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) 
return(a) 
} 

for(e in 1:length(impEvents)){ 
    cat("\n\n## Total Revenue: ", eventName[e], "##\n") 
    p1 <- s1Rev(impEvents[e]) 
    p1$print(paste0('chart',e), cdn=TRUE, include_assets=TRUE) 
}