如何使用闪亮

创建使用闪亮，表示一组用圆圈标记数据的单张地图，并添加一个标记为使用第二组数据点的多个对象添加到单张地图。

ISSUE “圆”标记正在工作，但“标记”不是。 “addMarkers”代码没有被读取或被忽略。

SERVER

library(shiny) 
    library(leaflet) 

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

    points <- read.csv(textConnection("Loc,STZip,Lat,Long,Vol 
           Loc1,17699,40.0185,-76.297582,15 
           Loc2,76177,32.949819,-97.31406,20 
           Loc3,27801,35.935125,-77.77076,17 
           Loc4,52404,41.947335,-91.68819,12 
           Loc5,19380,39.983108,-75.59332,18 
           ")) 
    newpoints <- read.csv(textConnection("Loc,STZip,Lat,Long,Vol 
           Loc6,18640,41.317242,-75.77942,12 
            Loc7,38133,35.208709,-89.80518,20 
           ")) 

    output$mymap <- renderLeaflet({ 
    leaflet() %>% 
    addProviderTiles("Stamen.TonerLite", 
        options = providerTileOptions(noWrap = TRUE)) %>% 
    addCircleMarkers(lng = ~Long, lat = ~Lat, radius = ~Vol, layerId = NULL, 
      group = "NGS_Facilities", stroke = TRUE, color = "#0000CC", weight = 5, opacity = 0.5, 
      fill = TRUE, fillColor = "#0000CC", fillOpacity = 0.2, dashArray = NULL, 
      popup = ~Loc, options = pathOptions(), clusterOptions = NULL, clusterId = NULL, 
      data = (newpoints)) %>% 

    #this code is not being read or is ignored... 
    addMarkers(lng = ~Long, lat = ~Lat, popup = ~Loc, data = (newpoints)) 


})

}

库（有光泽）库（单张）

r_colors <- rgb(t(col2rgb(colors())/255)) 
names(r_colors) <- colors() 

ui <- fluidPage(
    title = "Map of Stuff", 
    leafletOutput("mymap", width = 1800, height = 800), 
    p() 
)

来源

2015-11-10 Brad_A_Tx_

我早些时候曾在代码中的错误。我按照你的建议将％>％移动到前一行的末尾，并将“addmarker”代码改为：addMarkers（lng =〜Long，lat =〜Lat，data =（newpoints））我没有收到错误，但我也没有得到标记。 –

这是一个卫RD错误...与它战斗了一段时间，直到我意识到它是如何读取数据的问题。

> newpoints 
             Loc STZip  Lat  Long Vol 
1         Loc6 18640 41.31724 -75.77942 12 
2         Loc7 38133 35.20871 -89.80518 20 
3           NA  NA  NA NA

因为你的结束报价是在一个新的行，它会留下一个休息。这会导致数据中的最后一行为NA s。当我调试时，它看起来像我在数据显示之前放置的任何东西，但之后会失败。

为了解决这个问题，看了你的数据：

points <- read.csv(textConnection("Loc,STZip,Lat,Long,Vol 
           Loc1,17699,40.0185,-76.297582,15 
           Loc2,76177,32.949819,-97.31406,20 
           Loc3,27801,35.935125,-77.77076,17 
           Loc4,52404,41.947335,-91.68819,12 
           Loc5,19380,39.983108,-75.59332,18")) 
    newpoints <- read.csv(textConnection("Loc,STZip,Lat,Long,Vol 
           Loc6,18640,40.0185,-76.297582,12 
            Loc7,38133,35.208709,-89.80518,20"))

无论出于何种原因，单张虫子，如果最后一行是所有NA小号

来源

2015-11-10 19:42:50 Chris

感谢您的帮助！我无处可去，但它现在适合我！ –

如何使用闪亮

回答

相关问题