Ggtcf

I've built a Shiny App with Leaflet that for the most part works. However, "clearMarkers() %>% clearShapes() %>%" seems to be causing my RStudio to crash. When I switch these off, my application no longer crashes. However, the map doesn't clear. Has anyone been able to solve this issue for themselves? I need to be able to clear the map each time an input is changed. I appreciate the help.

library(shiny)
library(leaflet)
library(dplyr)
library(rgdal)
library(RColorBrewer)
library(colorRamps)
library(sf)
library(data.table)

monthStart <- function(x) 
 x <- as.POSIXlt(x)
 x$mday <- 1
 as.Date(x)


# Define UI for application 
ui <- fluidPage(
 #Input Station Drop Down
 selectizeInput("Selectedstation", "Select Station", 
 stationfinal$Var1, selected = "3000 Connecticut Ave NW / National Zoo", multiple = FALSE,
 options = NULL),


 #Insert Slider
 sliderInput("YearMonth", "Date of Bikeshare",min(as.Date("2018-01-01")), 
 max(as.Date("2018-12-01")),
 value = max(as.Date("2018-12-01")),
 timeFormat="%b %Y",
 step=1,
 animate=animationOptions(interval=1,loop=FALSE,playButton = "Play Animiation")),


 #Insert Radio Button - Origin vs. Destination
 radioButtons("Direction", "Review Trips That",
 c("Start At Selected Station" = "OriginTrips",
 "End At Selected Station" = "DestinationTrips")),

 #Insert Radio Button - Aggregate By
 radioButtons("DisplayBy", "Display by:",
 c("Monthly Usage" = "MonUse",
 "Total Usage" = "TotUse")),


 #Insert Map
 leafletOutput("mymap",width="800px", height="800px")

 )



# Define server logic required to draw a histogram
server <- function(input, output, session) 

sliderMonth <- reactiveValues()


 observe(
 full.date <- as.Date(input$YearMonth)
 sliderMonth$Month <- as.character(monthStart(full.date))

 )


 points.all <- reactive(if(input$Direction == "OriginTrips")
 Bikeshare_Data_Aggreggated2[ which(Bikeshare_Data_Aggreggated2$Start.station == input$Selectedstation & 
 Bikeshare_Data_Aggreggated2$FixedDate == sliderMonth$Month & 
 !is.na(Bikeshare_Data_Aggreggated2$lon.dest)) ,]


 else
 Bikeshare_Data_Aggreggated2[ which(Bikeshare_Data_Aggreggated2$End.station == input$Selectedstation & 
 Bikeshare_Data_Aggreggated2$FixedDate == sliderMonth$Month & 
 !is.na(Bikeshare_Data_Aggreggated2$lon.org)) ,]
 

 )




 output$mymap <- renderLeaflet(
 leaflet() %>% addTiles() %>% setView(lng = -76.99, lat = 38.93, zoom = 12)

 ) 




 observe(
#prepare point data
 if(input$DisplayBy == "TotUse")
 display.points<-points.all()[points.all()$CumTrips>0,]
 display.points$Trips<-display.points$CumTrips
 display.points$Radius<-sqrt(display.points$CumTrips)
 if(input$DisplayBy == "MonUse") 
 display.points<-points.all()[points.all()$Trips>0,]
 display.points$Trips<-display.points$Trips
 display.points$Radius<-display.points$Trips 

 if(input$Direction == "OriginTrips") 
 display.points$lon<-display.points$lon.dest
 display.points$lat<-display.points$lat.dest
 DisplayLon<-unique(display.points$lon.org)
 DisplayLat<-unique(display.points$lat.org)
 display.points$Station<-display.points$End.station
 if(input$Direction == "DestinationTrips") 
 display.points$lon<-display.points$lon.org
 display.points$lat<-display.points$lat.org
 DisplayLon<-unique(display.points$lon.dest)
 DisplayLat<-unique(display.points$lat.dest)
 display.points$Station<-display.points$Start.station

 #prepare heatmap data
 Bikeshare_sf = st_as_sf(display.points, coords = c("lon", "lat"), crs = 4269, agr = "constant")
 All_States_Joined<-st_join(AllStates,Bikeshare_sf) %>% 
 group_by(GEOID, NAMELSAD) %>% 
 summarise(stations = n(),
 Trips = sum(Trips)) %>%
 mutate(stations = ifelse(is.na(Trips),0,stations))

 heatmap_labels<-paste0("<strong>Census Tract: </strong>", 
 All_States_Joined$NAMELSAD,
 "<br><strong>Stations in CT: </strong>",
 All_States_Joined$stations,
 "<br><strong>Number of Trips: </strong>",
 All_States_Joined$Trips) %>% lapply(htmltools::HTML)



 #Show Aggregated TRips
 CircleColors<-colorQuantile(colorRamp(c("#008000", "#FF0000"), interpolate="spline"), unique(display.points$Trips), n = 5)
 leafletProxy("mymap", data = display.points ) %>% 
 clearMarkers() %>% clearShapes() %>% 

 addCircleMarkers(data = display.points, group = "Circles",
 lng = display.points$lon,
 lat = display.points$lat,
 radius = display.points$Radius, 
 popup = paste0("<strong>Station Name: </strong>",
 display.points$Station,
 "<br><strong>Number of Trips: </strong>",
 display.points$Trips),
 color = CircleColors(display.points$Trips),
 stroke = TRUE) %>% flyTo(DisplayLon ,DisplayLat, 13) %>% 

 addPolygons(data = All_States_Joined, group = "Polygons", 
 color = "#444444", weight = 1, smoothFactor = 0.5,
 opacity = 1.0, fillOpacity = 0.5,
 fillColor = ~colorBin("YlOrRd", Trips)(Trips),
 highlightOptions = highlightOptions(color = "white", weight = 2,
 bringToFront = TRUE),
 label = heatmap_labels,
 labelOptions = labelOptions(style = list("font-weight" = "normal", padding = "3px 8px"),
 textsize = "15px",
 direction = "auto")) %>% 

 addMarkers(data = display.points, 
 group = "Stations", 
 lng = display.points$lon,
 lat = display.points$lat,
 options = markerOptions(riseOnHover = TRUE),
 popup = paste0("<strong>Station Name: </strong>",
 display.points$Station,
 "<br><strong>Number of Trips: </strong>",
 display.points$Trips)) %>% hideGroup("Stations") %>%
 addLayersControl(
 baseGroups = c("Circles", "Polygons"),
 overlayGroups = c("Stations"),

 options = layersControlOptions(collapsed = FALSE))






 )





# Run the application 
shinyApp(ui, server)