Error in safari

server.R

# Contributed by Joe Cheng, February 2013
# Requires googleVis version 0.4.0 and shiny 0.4.0 or higher
# server.R
library(googleVis)
library(shiny)
shinyServer(function(input, output) {
 
  output$view <- renderGvis({
    Pie1 <- gvisPieChart(CityPopularity)
    
    ## Doughnut chart - a pie with a hole
    Pie2 <- gvisPieChart(CityPopularity, options=list(
      slices="{4: {offset: 0.2}, 0: {offset: 0.3}}",
      title='City popularity',
      legend='none',
      pieSliceText='label',
      pieHole=0.5))
    
    gvisMerge(Pie2, Pie1)
  })
  output$view2 <- renderGvis({
     gvisPieChart(CityPopularity)
    })
  output$view3 <- renderGvis({
    gvisPieChart(CityPopularity, options=list(
      slices="{4: {offset: 0.2}, 0: {offset: 0.3}}",
      title='City popularity',
      legend='none',
      pieSliceText='label',
      pieHole=0.5))
  })
  
})

ui.R

shinyUI(fluidPage(
  fluidRow(
  mainPanel(
    htmlOutput("view"),
    htmlOutput("view2"),
    htmlOutput("view3")
  ))
))