Ошибка в R: объект типа «замыкание» не может быть изменен при щелчке - PullRequest
0 голосов
/ 06 июня 2019

Я не понимаю, какую часть следующего кода мне нужно исправить.

Я пытался использовать реактивное связывание и другие глобальные параметры.

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