r - R アプリケーションで ggmap が表示されない

Question

Rアプリ、serv.Rファイルでggmapをプロットしています

mapImageData1 <- get_map(location = c(lon = -0.016179, lat = 51.538525),
                             color = "color",
                             source = "google",
                             maptype = "satellite",
                             zoom = 17)

    p<-ggmap(mapImageData1,
          extent = "device",
          ylab = "Latitude",
          xlab = "Longitude")
    print(p)

UIに次のエラーが表示されます

Error:cannot open URL 'http://maps.googleapis.com/maps/api/staticmap?center=51.538525,-0.016179&zoom=17&size=%20640x640&scale=%202&maptype=satellite&sensor=false'

そしてアプリケーションフォルダに「ggmapTemp.png」が生成されていますが0バイトです。

ログにも次のように表示されます。

Warning in download.file(url, destfile = destfile, quiet = !messaging, mode = "wb") :
  unable to connect to 'maps.googleapis.com' on port 80.
Error in download.file(url, destfile = destfile, quiet = !messaging, mode = "wb") : 
  cannot open URL 'http://maps.googleapis.com/maps/api/staticmap?center=51.538525,-0.016179&zoom=17&size=%20640x640&scale=%202&maptype=satellite&sensor=false'

rコンソールを介してインターネットが機能していることを確認しました。誰もが何らかの考えを持っています

前もって感謝します..