JavaScript (D3r)의 경고를 사용하여 데이터를 R에 전달

Question

선 버스트 플롯에서 R (서버 측)으로 데이터를 전달해야합니다. 다음 코드는 햇살 플롯을 작성하고 선택한 레벨에 대한 경고를 제공합니다 (케리와 HTMLWidgets 및 SunburstR에 대한 훌륭한 업적). 그 정보를 전달하여 다운로드 목록을 만들 수 있기를 바랍니다.

library(sunburstR) 

# read in sample visit-sequences.csv data provided in source 
# https://gist.github.com/kerryrodden/7090426#file-visit-sequences-csv 
sequences <- read.csv(
    system.file("examples/visit-sequences.csv",package="sunburstR") 
    ,header = FALSE 
    ,stringsAsFactors = FALSE 
) 

sb <- sunburst(sequences) 

sb$x$tasks <- list(
    htmlwidgets::JS(
" 
function(){ 
    //debugger; 

    this.instance.chart.on('click',function(d){ 
    alert(d); 
    }); 
} 
"  
) 
) 

sb 

Answer 1

사용 :

this.instance.chart.on('click',function(d){ 
    Shiny.onInputChange("val", d); 
}); 

은 당신에게 값 (D)을 제공 서버 측에서

input$val 

를 사용할 수있다.