ggmap地理编码可在本地使用，但不能在Shiny服务器上使用

Question

我有一个简单的app，它可以在我的计算机上工作，但在部署时不起作用。

ui.R：

library(shiny)
library(ggmap)

shinyUI(fluidPage(
  titlePanel(h3("Test ggmap")),
  sidebarLayout (
    sidebarPanel(
           textInput("address", label=h4("Enter location"), value = 
"Millenia Mall, Orlando")
    ),
    mainPanel(verbatimTextOutput("debug"))
  )
))

server.R

library(shiny) 
library(ggmap) 
register_google(key = "abc123")

shinyServer(function(input, output, session) {
    output$debug <- renderPrint({
        location <- as.numeric(geocode(input$address, source="google"))
        location
    })
})

在我的计算机上，我得到：

[1] -81.43153  28.48553

在服务器上：

[1] NA NA

在Shiny服务器日志上，它显示：

Warning in readLines(connect, warn = FALSE) : unsupported URL scheme
Warning in geocode(input$address, source = "google") :
    geocoding failed for "Millenia Mall, Orlando".

我用global.R文件尝试了给定here的解决方案，但是没有用。