R Studio Shiny Crashes (iMac M1) - r

Question

I am trying to plot some epidemiological data. To do this, I am using the shiny app (following the steps of this tutorial).
When I start the app, a further tab opens and i can see the graphs, a map and an input . When I change the date input on the app (using reactivity), the app crashes and all I see is a gray display. I am forced to exit RStudio. It is really strange, because I already did some tests using an older Macbook Pro (2,7 GHz Dual-Core Intel Core i5 Prozessor) and although it was slow, RStudio did not crash. Is it maybe something related to the Apple M1 chip?
library(shiny)
library(shinyWidgets)
library(rgdal)
library(DT)
library(dygraphs)
library(xts)
library(leaflet)
# ui object
ui <- fluidPage(
titlePanel(p("Spatial app", style = "color:#3474A7")),
sidebarLayout(
sidebarPanel(
selectInput(
inputId = "variableselected",
label = "Select variable",
choices = c("n", "Pop", "incidence_rate")
),
dateRangeInput('dateRange',label = "Pédiode d'analyse : ",format = "yyyy-mm-dd",
start = Sys.Date(), end=Sys.Date(),startview = "year",separator = " - "),
p("Made with", a("Shiny",
href = "http://shiny.rstudio.com"
), "."),
img(
src = "imageShiny.png",
width = "70px", height = "70px"
)
),
mainPanel(
leafletOutput(outputId = "map"),
dygraphOutput(outputId = "timetrend"),
DTOutput(outputId = "table")
)
)
)
# server()
server <- function(input, output) {
output$table <- renderDT(data)
output$timetrend <- renderDygraph({
dataxts <- NULL
counties <- unique(data$COD_MUN_N)
for (l in 1:length(counties)) {
datacounty <- data[data$COD_MUN_N == counties[l], ]
dd <- xts(
datacounty[, input$variableselected],
as.Date(paste0(datacounty$weekly_cases, "-01-01"))
)
dataxts <- cbind(dataxts, dd)
}
colnames(dataxts) <- counties
dygraph(dataxts) %>%
dyHighlight(highlightSeriesBackgroundAlpha = 0.2) -> d1
d1$x$css <- "
.dygraph-legend > span {display:none;}
.dygraph-legend > span.highlight { display: inline; }
"
d1
})
output$map <- renderLeaflet({
# Add data to map
datafiltered <- data[data$weekly_cases >= input$dateRange[1] & data$weekly_cases <= input$dateRange[2], ]
# this returns positions of map#data$NAME in datafiltered$county
ordercounties <- match(map#data$MPIO_CCDGO, datafiltered$COD_MUN_N)
map#data <- datafiltered[ordercounties, ]
map$variableplot <- as.numeric(
map#data[, input$variableselected]
)
# Create leaflet
pal <- colorBin("YlOrRd", domain = map$variableplot, bins = 7)
labels <- sprintf("%s: %g", map$COD_MUN_N, map$variableplot) %>%
lapply(htmltools::HTML)
l <- leaflet(map) %>%
addTiles() %>%
addPolygons(
fillColor = ~ pal(variableplot),
color = "white",
dashArray = "3",
fillOpacity = 0.7,
label = labels
) %>%
leaflet::addLegend(
pal = pal, values = ~variableplot,
opacity = 0.7, title = NULL
)
})
}
# shinyApp()
shinyApp(ui = ui, server = server)