【问题标题】:R Shiny Leaflet Map won't redraw after the first movementR Shiny Leaflet Map 在第一次移动后不会重绘
【发布时间】:2019-02-02 12:06:53
【问题描述】:

我一直在做我在 R 中的第一个小项目,但遇到了 Leaflet 地图的问题。它将使用我迄今为止指定的数据和设计正确呈现,但是一旦我在浏览器或 RStudio 中的 R 查看器中移动地图,它将不再对点击/拖动/等做出反应。即使放置几分钟也不会反应。

我也遇到了缩放功能的问题,我不确定这是因为我错过了什么还是与上述问题有关。

数据示例: Data_example

# Libraries ---------------------------------------------------------------

library("shiny") 
library("tidyverse")
library("leaflet")
library("leaflet.minicharts")

# UI ----------------------------------------------------------------------

ui <- fluidPage(
   titlePanel("Wiersma Sale Iceland Trip"),
   mainPanel(
    leafletOutput(outputId = "Map_1", height = 1080, width = 1920)
  )
)

# Server ------------------------------------------------------------------

server <- function(input, output) {
  sheets_data <- read.csv("Iceland_Mark2 - Data.csv")
  output$Map_1 <- renderLeaflet({
    m <- leaflet(data = sheets_data) %>%
          addTiles() %>%
          addMinicharts(
            sheets_data$Long,
            sheets_data$Lat,
            type = "pie",
            popup = popupArgs(
              labels = c("A", "B", "C"),
              html = paste0(
               "<div>",
               "<h3>",
               sheets_data$Name,
               "</h3>",
                "Description: ",
               sheets_data$Description,
                "<br>",
               "Media_1: ",
               sheets_data$Media_1,
                "</div>"
              )
            )
          )
  })
}

# Run_App -----------------------------------------------------------------

shinyApp(ui = ui, server = server)

输出: Output_of_app

它不需要漂亮,也不需要独特,但它确实需要对缩放和移动做出反应,我一辈子都无法弄清楚它为什么会这样。

【问题讨论】:

  • 上面的代码对我有用。我可以在浏览器(firefox)、R-studio 窗口和 R-studio 查看器窗格中查看、放大缩小、拖动地图以及弹出窗口,而不会出现任何错误。
  • 感谢您抽出宝贵时间进行测试。您认为可能存在硬件问题吗?我可以在另一台电脑上测试,看看它是否在那里工作
  • 我不认为硬件是这里的根本原因。因为我已经在Ubuntu 16.04 (64 bit)Windows 10 (64 bit) 机器上测试了你的代码。两台机器都配备了3.4.3 版本的 R。但我当然无法确定它为什么不适合你。
  • 是的,我在两台 Windows 10 机器和两部手机上测试了它。不幸的是,我无法缩放,一旦移动它就会锁定到位。也许我会重建,看看一个小的改变是否能解决它。非常感谢您的宝贵时间!

标签: dictionary shiny leaflet


【解决方案1】:

我已经制作了许多没有问题的地图后突然出现了同样的问题。所以我认为这很可能与我提供给它的数据有关。

我的图表数据中有一行有 NA。删除此行并重新映射解决了问题

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 2015-02-26
    • 1970-01-01
    • 2020-01-30
    • 2015-10-12
    • 2018-03-25
    • 2017-08-20
    • 2021-01-15
    相关资源
    最近更新 更多