使用Shiny（r）对邮政编码进行地理编码

Question

我正在尝试使用Shiny对邮政编码进行地理编码。

如何操纵'geocodeddata'将纬度和经度分成两个单独的对象？我希望能够使用这些对象然后对表进行子集化。

ui.R

library(shiny)
library(ggplot2)

shinyUI(fluidPage(
  # Application title
  titlePanel("Parking Charge Notice"),
  textInput("value", label = h3("Text input"), value = "Enter text..."),
  actionButton("go", "Go"),
  actionButton("go2", "Run"),
  textOutput("text1"),
  fluidRow(
    dataTableOutput("table")
  )
    )
)

server.R

library(shiny)
library(plyr)
library(geosphere)
library(ggmap)
library(reshape)
library(ggplot2)



shinyServer(function(input, output) {
    geocodeddata <- eventReactive(input$go,{
    geocode(input$value, output = "latlon")
  })
})