使用闪亮和传单在R中创建带有标记的交互式网络地图

Question

其思想是用户选择一个输入，并且对应于该输入的标记（将从对应输入的数据集中提取的lat/long）显示在传单地图中（具有放大/缩小功能）。任何帮助/建议将不胜感激！

（示例数据文件上载于此）：

enter code here
Server.R

library(shiny)
library(rpart.plot)
library(leaflet)

shinyServer(
function(input, output) {

output$dtmplot <- renderPlot({
dtmplot <- rpart.plot(dtm, type=4, extra=101)

})
observe({  

output$map <- renderLeaflet( {  
for(j in 1:nrow(df))
{
if(df[j, "col1"]==input$input1) {
map <- leaflet() %>%
addTiles() %>% 
addMarkers(lng=df[j,"Longitude"], lat=df[j,"Latitude)
}
}
})
})
}
)


enter code here

UI.R
library(shiny)
library(leaflet)
shinyUI(
pageWithSidebar(

headerPanel("Sample project"),

sidebarPanel(
plotOutput("dtmplot"),
selectInput("input1", 
label = "label1:",
choices = c(“choice1”,”choice2”),
              selected = " choice1"),
sliderInput("slider","Please select slider input",                min=1,max=100,value=20,step=10) 


  ),


   mainPanel(
   leafletOutput("map")

   )

   ))

Answer 1

在传单地图中处理自定义点的基本代码如下所示。该代码利用了GitHub小册子上的官方示例，并为最终用户提供了在地图上显示自定义位置的功能。

library(shiny)
library(leaflet)

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

ui <- fluidPage(
    leafletOutput("mymap"),
    p(),
    h1("Added example to add more points here:"),
    p(),
    numericInput("long", label = h3("Longitude:"), value = 11.242828),
    numericInput("lat", label = h3("Latitude:"), value = 30.51470),
    actionButton("recalc", "Show point")

)

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

    points <- eventReactive(input$recalc, {
        cbind(input$long, input$lat)
    }, ignoreNULL = FALSE)

    output$mymap <- renderLeaflet({
        leaflet() %>%
            setView(lat = 30, lng = 11, zoom = 4) %>%
            addProviderTiles("Stamen.TonerLite",
                             options = providerTileOptions(noWrap = TRUE)
            ) %>%
            addMarkers(data = points())
    })
}

shinyApp(ui, server)

得到的地图如下所示：

其机制相当简单，可概括为以下步骤：

null

null