rCharts - example of Highcharts click events in Shiny

server.R

library(shiny)
library(rCharts)

shinyServer(function(input, output) {
  
  output$text <- renderText({
    sprintf("The capital of %s is %s.", input$click$country, input$click$capital)
  })
  
  output$chart <- renderChart({
    a <- Highcharts$new()
    a$series(data = list(
        list(x = 0, y = 40, capital = "Stockholm", country = "Sweden"),
        list(x = 1, y = 50, capital = "Copenhagen", country = "Denmark"),
        list(x = 2, y = 60, capital = "Oslo", country = "Norway")
      ), type = "bar"
    )
    a$xAxis(categories = c("Sweden", "Denmark", "Norway"))
    a$plotOptions(
      bar = list(
        cursor = "pointer", 
        point = list(
          events = list(
            click = "#! function() {
                  Shiny.onInputChange('click', {
                    capital: this.capital,
                    country: this.country
                  })
                } !#"))
      )
    )
    a$addParams(dom = "chart")
    return(a)
  })
})

ui.R

library(shiny)
library(rCharts)

shinyUI(bootstrapPage(
  chartOutput("chart", "highcharts"),
  textOutput("text")
))

work fine removing the "highcharts" in chartOutput. thanks