У меня есть простое приложение , которое работает на моем компьютере, но не при развертывании.
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
, но оно нене работает.