CODEWITHSUNDEEP
rshinyr-leaflet
Turner Sale
Turner Sale

Reputation: 1

Map won't redraw after the first movement

I have been working on my first little project in R and have run into an issue with a Leaflet map. It will render properly with the data and design I have specified thus far, but once I move the map in browser or the R viewer in RStudio it will no longer react to clicks/drags/etc. and will not react even if it is left alone for several minutes.

I have also had an issue with the zoom functionality, I am not sure if this is due to something that I missed or something to do with the above issue.

Example of the data:

enter image description here

# 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)

The output: enter image description here

It needn't be pretty, nor unique, but it does need to react to zooming and movement and I can't for the life of me figure out why it behaves this way.

Upvotes: 0

Views: 315

Answers (1)

Jjonns
Jjonns

Reputation: 21

I had the same problem suddenly come up after having already produced a number of maps with no issues. So I figured it most likely was to do with the data I was feeding it.

I had one row in my chartdata that had NAs. Deleting this row and remapping fixed the problem.

Upvotes: 2

Related Questions