Используйте вывод summaze () в качестве метки маркера в R Shiny - PullRequest
Новая
       7

Используйте вывод summaze () в качестве метки маркера в R Shiny

0 голосов
/ 12 января 2019

Я создаю приложение 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)})``
...