с использованием предупреждения из JavaScript (D3r) для передачи данных на R

Question

Мне нужно передать данные с участка Sunburst в 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); 
}); 

, то вы можете использовать

input$val 

на стороне сервера, который дает вам значение д.