Геокод ggmap работает локально, но не на сервере Shiny - PullRequest
Новая
       44

Геокод ggmap работает локально, но не на сервере Shiny

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

...