R Shiny Leaflet Map не будет перерисовываться после первого движения - PullRequest
Новая
       8

R Shiny Leaflet Map не будет перерисовываться после первого движения

0 голосов
/ 28 августа 2018

Я работал над своим первым маленьким проектом на R и столкнулся с проблемой с картой Leaflet. Он будет правильно отображаться с данными и дизайном, которые я указал до сих пор, но как только я переместу карту в браузере или в R Viewer в RStudio, он больше не будет реагировать на нажатия / перетаскивания / и т.д. и не будет реагировать, даже если его оставить в покое на несколько минут.

У меня также была проблема с функцией масштабирования, я не уверен, связано ли это с чем-то, что я пропустил, или с тем, что связано с вышеупомянутой проблемой.

Пример данных: 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

Он не должен быть ни красивым, ни уникальным, но он должен реагировать на увеличение и движение, и я не могу понять, почему он так себя ведет.

...