Observation data is not shown in the shiny application - r

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.