Геокод ggmap работает локально, но не на сервере Shiny - PullRequest
0 голосов
/ 18 октября 2018

У меня есть простое приложение , которое работает на моем компьютере, но не при развертывании.

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, но оно нене работает.

...