Rシャイニーのマウスオーバーの動作は私はアイコンがマウスオーバーの座標に基づいてプロットされているマップを持ってaddCircles対addCircleMarkers

Question

異なります。私はaddCircleMarkersにaddCircles（）から自分のマーカーを変更した場合、しかし、それが機能を停止しました。問題を示すコードスニペットを示します。行動がどのように変化するかを確認するためにaddCircles行をコメントアウトします。

library(shiny) 
library(leaflet) 

#create test data 
dataset <- structure(list(LATITUDE = c(37.09719065, 37.11063138, 37.1132722, 
           37.0749196, 37.02980937, 36.98644663, 
           36.94062755, 36.89560073, 36.85363852), 
        LONGITUDE = c(283.6828216, 283.7335099, 283.7892219, 
            283.813835, 283.812904, 283.7935855, 
            283.7740784, 283.7531182, 283.7280719), 
        ALTP = c(0.3963670049, 0.8659926907, 1.328491136, 
          1.855292223, 2.358125869, 2.792399835, 
          3.24886324, 3.708547366, 4.146854851)), 
        .Names = c("LATITUDE", "LONGITUDE", "ALTP"), 
        row.names = c(NA, 9L), 
        class = "data.frame") 


server <- function(input, output, session) { 

# create base map 
output$flightpath <- renderLeaflet({ 
leaflet() %>% addTiles() %>% setView(lng = 283.6828216, 
               lat = 36.94062755, 
               zoom = 10) 
    }) 

# add markers - this is where the problem is 
observe({ 
    leafletProxy("flightpath", data = dataset) %>% 
    addCircles(weight = 6, radius = 40) 
    #addCircleMarkers(weight = 6, radius = 6) 
}) 


# get map mouseover coordinates 
map_lat_lng <- reactive ({ 
    req(input$flightpath_shape_mouseover) 
    map_hover <- input$flightpath_shape_mouseover 
    x <- data.frame(map_hover$lat, map_hover$lng) 
    colnames(x) <- c("Latitude", "Longitude") 
    x 
}) 

# add icon to map 
observe({ 
    leafletProxy("flightpath", data = map_lat_lng()) %>% 
    clearGroup("hover") %>% 
    addMarkers(group = "hover") 
}) 
} 

ui <- fluidPage(leafletOutput("flightpath")) 

shinyApp(ui, server) 

これを理解する助けがあれば、何か助けてください。ありがとう！

Answer 1

あなたはマーカーに形状から、それを変更しているので、あなたは、オブジェクトのカテゴリを変更する必要があります。flightpath_shape_mouseoverはflightpath_marker_mouseoverになるはずです。それはそれを修正する必要があります。