Question

我一直在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

它不一定漂亮，也不独特，但是它确实需要对缩放和移动做出反应，而且我一生都无法弄清为什么它会如此行为。

Answer 1

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

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

第一次移动后，R Shiny Leaflet Map将不会重新绘制

1 个答案: