Неиспользованная ошибка аргумента в блестящей интерактивной карте

Question

Я пытаюсь запрограммировать интерактивную карту на R с помощью пакета Shiny, но продолжаю сталкиваться с ошибкой.

Код:

df <- structure(list(VictimSex = structure(c(2L, 4L, 4L, 4L, 1L, 4L, 
4L, 2L, 4L, 2L), .Label = c("", "F", "H", "M", "N", "X"), class = "factor"), 
    Long = c(-118.2775, -118.3575, -118.606, -118.2585, -118.3967, 
    -118.4697, -118.3965, -118.6103, -118.5317, -118.3294), Lat = c(34.0488, 
    34.2532, 34.2572, 34.0509, 34.0295, 33.9845, 34.1794, 34.1865, 
    34.2208, 33.9745)), row.names = c(NA, -10L), class = "data.frame")

#Define UI ----
ui <- fluidPage(
  titlePanel("Interactive Los Angeles Traffic Collision"), 
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("Gender", h3("Gender"), choices = list("F", "M"), selected = "Female")
    ),
    mainPanel(leafletOutput("map", "100%", 500), 
              plotOutput("bar"))
  )
)

#Define Server logic ---- 
server <- function(input, output, session) {
  filtered <- reactive ({
    if (is.null(input$Gender)){
      return(df)
    }
    df %>% filter(VictimSex %in% input$Gender)
  })

  output$map <- renderLeaflet({
    leaflet()%>%
      addProviderTiles("CartoDB") %>%
      addCircleMarkers(df = filtered(), radius = 2)
  })
}

#Run the app ----
shinyApp(ui, server)

Ошибка, с которой я постоянно сталкиваюсь: Ошибка в addCircleMarkers: неиспользуемый аргумент (df = filter ())