我正在尝试在R中创建一个交互式webmap,使用Shiny,Leaflet和rCharts显示风暴(该结构基于http://ramnathv.github.io/bikeshare应用程序).

这个想法是用户一次选择一个风暴名称(df $ Name),并且该风暴的标记(lat/long)显示在Leaflet地图中(具有放大/缩小功能).

我无法让Leaflet为每个单独的风暴名称加载新的地图和标记.任何帮助/建议将不胜感激!

这就是数据(TCs.Rda)的样子(此处上传的示例数据文件):

 Year   Name   Wind   lat    long
 2010   BONNIE 15     30.100 -91.000
 2010   FIVE   25     30.000 -88.900
 2010   FIVE   25     30.400 -88.800
 2010   FIVE   25     30.800 -88.600

server.R

library(shiny); library(rCharts); library(leaflet)    
load("TCs.Rda") 
name <- sort(unique(data$Name)) 
shinyServer(function(input, output){      
     dataset <- reactive({  df <- data[data$Name == input$name, ]  })    
     output$add <- renderText({paste("Storm name:", input$name)})  
     output$Controls <- renderUI({  
         list(selectInput("name", "Select storm", name, selected=name[1])) })  
     output$myChart <- renderMap({
         df <- dataset()
         map <- Leaflet$new()
         map$setView(c(35, -80),zoom=5) …