Dictionary R闪亮传单地图赢得'；第一乐章结束后，我没有重画

我一直在做我在R的第一个小项目，遇到了一个关于传单地图的问题。它将使用到目前为止我指定的数据和设计正确渲染，但一旦我在浏览器中移动地图或在RStudio中移动R查看器，它将不再对单击/拖动/等做出反应，并且即使将其单独放置几分钟也不会作出反应

我也有一个问题与缩放功能，我不知道这是由于什么，我错过了或与上述问题有关

数据示例：

#库---------------------------------------------------------------
图书馆（“闪亮”）
图书馆（“tidyverse”）
图书馆（“单张”）
图书馆（“传单、小图表”）
#用户界面----------------------------------------------------------------------
ui我在制作了许多没有问题的地图之后，突然遇到了同样的问题。所以我认为这很可能与我输入的数据有关

我的图表数据中有一行有NAs。删除此行并重新映射修复了问题
以上代码对我有效。我可以在浏览器（firefox）、R-studio窗口和R-studio查看器窗格中查看、放大、缩小、拖动地图以及弹出窗口，没有任何错误。感谢您抽出时间进行测试。你认为可能有硬件问题吗？我可以在另一台电脑上测试，看看它是否在那里工作。我不认为硬件是根本原因。因为我已经在
ubuntu16.04（64位）
和
windows10（64位）
机器上测试了你的代码。这两台机器都配备了
3.4.3
版本的R。但我当然不能确定为什么它不适合你。是的，我在两台windows 10机器和两部手机上测试了它。不幸的是，我不能缩放，一旦移动它就会锁定到位。也许我会重建，看看一个小小的改变是否能解决它。非常感谢您抽出时间！
# 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)