时间戳

首页 > 解决方案 > R Shiny - 使用文件输入向传单地图添加标记

r - R Shiny - 使用文件输入向传单地图添加标记

问题描述

我正在尝试根据用户上传的坐标向地图添加标记。我无法将文件输入存储为数据框，然后将坐标从数据框传递到代理地图以添加标记。

ui <- fluidPage(
  
  titlePanel(title = "My Dashboard"),
  
  sidebarLayout(
      fileInput(inputId = "file",
                label = "File upload"),
      
    mainPanel(
      
      leafletOutput("mymap")
      
    )
  )
)

server <- function(input, output) {

  m <- leaflet() %>%
    setView(lng = -71.0589,
            lat = 42.3601,
            zoom = 12) %>%
    addProviderTiles(providers$CartoDB.Positron)

  output$mymap <- renderLeaflet(m)

    observe({
    input$file
    df <- read.csv('input$file$datapath')
    proxy <- leafletProxy("mymap", data = df)
    proxy %>% addMarkers(~long, ~lat)
  })

shinyApp(ui = ui, server = server)

标签： rshinyleaflet

解决方案

您快到了，只需将读取文件的方式更改为

observe({
   req(input$file)
   df <- read.csv(input$file$datapath)
   proxy <- leafletProxy("mymap", data = df)
   proxy %>% addMarkers(~long, ~lat)
})

那就是删除引号'。确保在req还没有上传时不会引发错误。上传时csv确保有标记为long和的列lat。

推荐阅读