Observation data is not shown in the shiny application

Question

I'm building a simple application in shiny to look at data divided to quadrants.

this is the server file:

shinyServer(function(input, output){
  output$chart1 = renderChart({
  library(rCharts)
  data = data.frame(z = c("a","b","c","d","e","f","g","h","i","j"),y = sample(100,10),x = sample(100,10))  
  d1 = dPlot(
    y ~ x,
    groups = c("z"),
    data =data,
    type = "bubble"
  )
  d1$xAxis(type="addMeasureAxis",overrideMin = 0, overrideMax = 100)
  d1$yAxis(type="addMeasureAxis",overrideMin = 0, overrideMax = 100)
  medY = median(data$y)
  medX = median(data$x)

  d1$setTemplate(
    afterScript = sprintf(
      paste(
        '
        <script>
        var line = d3.svg.line()
        .x(function(d) { return myChart.axes[0]._draw.scale()(d.x); })
        .y(function(d) { return myChart.axes[1]._draw.scale()(d.y); });

        d3.select("#%s svg g")
        .append("path")
        .datum([{x:',medX,',y:0},{x:',medX,',y:100}])
        .attr("d",line)
        .style("stroke","red")
        .style("stroke-width",1)
        </script>
        '
      ,sep = "")
    ,d1$params$dom
  ))

  d1$layer(
    y ~ x
    ,groups = c("x","y")
    ,data = data.frame(x = c(0,100), y = rep(medX,2))
    ,type="line"
    ,color='red'
  )

  d1$set(dom = 'chart1')
  return(d1)
})

})

and here is the ui:

shinyUI(pageWithSidebar(
  headerPanel("Test"),
  sidebarPanel(),
  mainPanel(showOutput("chart1", lib = "dimple"))
)) 

I get a chart but when I hover above the data points in the chart there is no description inside the boxes.

When I run the same code without the shiny application and look at the output at the viewer on RStudio i see the description.

I also added a vertical line which is not seen in the shiny application.

Anyone knows how to overcome this problem?

Thanks.