使用summary（）输出作为R Shiny中的标记标签

Question

我正在使用自行车共享数据集创建R Shiny应用程序。我想创建一个圆形标记，以显示特定用户输入日期（date()）上每个车站的入站乘车次数。

首先，我正在使用管道和summarize()计算无功函数中每个站点的行程数。然后，在圆圈标记中，当您将鼠标悬停在圆圈上时，我想使用计算出的n_trips作为标签。但是，即使我可以将所有未计算的值都用作圆形标签，但使用n_trips确实可以返回任何标签。如何将计算出的值显示为圆圈标记的标签？

filtered <- reactive ({df.trip %>%
filter(format(df.trip$starttime,"%Y-%m-%d") == date()) %>%
      group_by(from_station_id) %>%
      summarize(n_trips = n()) %>% 
      left_join(df.station, by = c("from_station_id" = "station_id")})``

output$secondExample <- renderLeaflet({
leaflet(filtered()) %>%
  addTiles(group="OSM") %>%#OSM is default tile providor
  addProviderTiles(providers$Stamen.TonerLite) %>%
  setView(lng=-122.335167,
    lat=47.619113,
    zoom=12.46)%>%
  addCircleMarkers(lng = ~long, lat = ~lat, weight = 1,label=~htmlEscape(n_trips), radius = ~n_trips)})``