Блог

Я пытаюсь показать максимальное расстояние, пройденное от соревнований по плаванию для каждого человека на карте листовок с помощью «shinyapp» на основе фильтрации по «имени» и «типу плавания».

Вот мой код:

 library(shiny)
library(dplyr)
library(shinydashboard)
library(leaflet)
library(osrm)


swimd <- read.csv('swim.csv', stringsAsFactors = F)

ui <- shinyUI(dashboardPage(
  dashboardHeader(title = "Training"),
  dashboardSidebar("A swim session"),
  dashboardBody(
    fluidPage(
      box("", 
          leafletOutput("abc", height = 430),
          width = 8, height = 450, background = 'black'),
      box("", 
          selectInput('st', label = 'Swim Type:', choices = unique(swimd$SwimStyle)),
          selectInput('pn', label = 'Name:', choices = unique(swimd$Name)),
      
          width = 4, height = 450, background = 'black')
  
    )
  )
))

server <- shinyServer(function(input, output, session){

  a <- reactive({
    swimd %>%
      select(Name, SwimStyle, Longitude, Latitude) %>%
      filter( SwimStyle %in% input$st)
  })

  observe({
    updateSelectInput(session, 
                  inputId='pn', 
                  choices = c("< select Name>"="", a()$Name ))
  })

  output$abc <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$OpenStreetMap) %>%
      setView(lng=0, lat=0, zoom = 2)
  })

  observe({
    selection <- a() %>% filter(Name %in% input$pn)
    selection$res <- distHaversine(selection$Longitude, selection$Latitude, r=6378137)
    #to find the difference between two sequence values
    selection[ , list(Name, SwimStyle, Longitude, Latitude,res,Diff=diff(res))]
    b <- selection %>% arrange(desc(Diff)) %>% top_n(2)

    leafletProxy("abc") %>%  clearMarkers() %>% addMarkers(lat = b$Latitude, lng = b$Longitude) %>% 
      addPolylines(route$lon,route$lat, 
                   label = paste(round(route_summary[1]), 'Minutes  - ', round(route_summary[2]/1000), 'Meters'), 
                   labelOptions = labelOptions(noHide = TRUE))
      flyTo(lat = b$Latitude, lng = b$Longitude, zoom = 2)
  })   
})

shinyApp(ui,server)
 

В этом приложении, когда имя и тип плавания фильтруются, максимальное расстояние плавания должно отображаться на карте с помощью «полилинии». Для примера человек закончил 10 минут плавания. Для каждой 1 минуты плавания мы записываем расстояние. Я хотел бы показать addPolyline для максимального расстояния, пройденного за минуту для каждого человека, выбрав имя из выпадающего списка, созданного в этом приложении.

Может кто-нибудь помочь мне в этом варианте использования?

Спасибо.