Передача значения из карты Google в Rchart в блестящем приложении

Question

У меня есть блестящее приложение, в котором я строю карту с plotGoogleMaps и rChartсо значениями, относящимися к некоторым маркерам на карте, отображаемым через rPlot,

Пользователь приложения может нажать на маркер на карте, чтобы показать всплывающую подсказку.

Мне бы хотелось, чтобы, когда он нажимал на маркер, соответствующее значение на графике выделялось.

Кто-нибудь знает, как выполнить эту задачу?

Спасибо.

Answer 1

@ jdharrison

R-код может быть таким:

suppressPackageStartupMessages(library(googleVis))

## Hurricane Andrew (1992) storm track with Google Maps
AndrewMap <- gvisMap(Andrew, "LatLong", "Tip", options = list(showTip = TRUE, 
showLine = TRUE, enableScrollWheel = TRUE, mapType = "hybrid", useMapTypeControl = TRUE))

print(AndrewMap, "chart")

Пример был взят отсюда. Вы можете скачать пакет здесь. В этом примере используется библиотека googleVis, но я думаю, что ответ может быть похожим.

Блестящий пример

server.R

# Author: Denis Petrov
# Date: 2014-07-04

# Example is based on http://rpubs.com/gallery/googleVis

library (shiny)
suppressPackageStartupMessages (library (googleVis))

# Define server logic required to summarize and view the selected dataset
shinyServer ( function (input, output, session) 
{
  GetDataAndrew <- function ()
  {

    # Hurricane Andrew (1992) storm track with Google Maps
    AndrewMap <- gvisMap (Andrew, "LatLong", "Tip", 
                         options = list(showTip = TRUE, 
                                        showLine = TRUE, 
                                        enableScrollWheel = TRUE, 
                                        mapType = "hybrid", 
                                        useMapTypeControl = TRUE))

    return (AndrewMap)

  }

  output$viewchart <- renderGvis({
    GetDataAndrew ()
  })

  output$info <- renderPrint ({
    cat ('Hurricane\n')
    cat ('Pressure=937\n')
    cat ('Speed=120')
  })

}
)

ui.R

# Author: Denis Petrov
# Date: 2014-07-04


# Define UI for dataset viewer application
shinyUI(pageWithSidebar(

  # Application title
  headerPanel('Hurricane Andrew (1992)'),

  # Sidebar with controls to provide a caption, select a dataset, and 
  # specify the number of observations to view. Note that changes made
  # to the caption in the textInput control are updated in the output
  # area immediately as you type
  sidebarPanel(
               p ('Hurricane Andrew (1992) storm track with Google Maps'),
               p ('I would like the following output be changed based on 
                  selected pin.'),
               verbatimTextOutput ('info')
  ),


  # Show the caption, a summary of the dataset and an HTML table with
  # the requested number of observations
  mainPanel(
    htmlOutput ('viewchart')
  )
))