Я не понимаю, какую часть следующего кода мне нужно исправить.
Я пытался использовать реактивное связывание и другие глобальные параметры.
a <- aggregate(.~rapOff$State, data = rapOff, FUN=sum)
a <- a[c(-2,-3)]
setnames(a, old=c("rapOff$State"),
new=c("States"))
output$hcontainer <- renderHighchart({
myClickFunc <- JS("function(event) {Shiny.onInputChange('hcClicked', this.name);}")
highchart() %>%
hc_xAxis(categories = a$State) %>%
hc_add_series(name = "Known", data = a$Known) %>%
hc_add_series(name = "Rel", data = a$Relative) %>%
hc_add_series(name = "Nbr", data = a$Neighbour) %>%
hc_plotOptions(series = list(stacking = TRUE, events = list(click = myClickFunc))) %>%
hc_chart(type = "column")
output$tablecontainer <- renderDataTable({
if(!is.null(input$hcClicked)){
subset(a,,select = c('States',input$hcClicked))
}