Shiny App - как правильно отображать URL в маркере листовки - PullRequest
Новая
       9

Shiny App - как правильно отображать URL в маркере листовки

0 голосов
/ 18 декабря 2018

Я хочу, чтобы мои маркеры содержали ссылку, чтобы каждый из них динамически указывал на правильный URL.Я чувствую, что я так близко, но сталкиваюсь с несколькими проблемами.

Я могу отобразить ВСЕ ссылки внизу приложения:

в интерфейсе пользователя 

htmlOutput("link")

на сервере 

    output$link    <-    renderUI({ 
  HTML(paste0('<a href = "https://www.google.com/maps/dir/', 
              input$lat,",",input$long,"/",
              (subset(df_important_columns, df_important_columns$formatted %in% input$formatted)$geometry.lat),",",
              (subset(df_important_columns, df_important_columns$formatted %in% input$formatted)$geometry.lng),'"> directions to', input$formatted, '</a>'))
})

--- это работает в моем наборе тестовых данных из 3 мест.Когда у меня есть несколько сотен мест, я просто хочу, чтобы ссылка использовалась в маркерах.Я знаю, что могу создать эти ссылки, но когда я пытаюсь получить 1 URL на маркер, то есть у меня возникают проблемы.

Вот взгляд на правильный текст, но я хочу, чтобы он отображался в виде URL 

    output$mymap <- renderLeaflet({
        leaflet(data = subset(df_important_columns, df_important_columns$formatted %in% input$formatted)) %>%
        addTiles()%>%
        addMarkers(lng = ~geometry.lng, lat = ~geometry.lat, popup = 
                          ~paste0('https://www.google.com/maps/dir/', 
                                      input$lat,",",input$long,"/",
                                      geometry.lat,",",
                                      geometry.lng))%>%
        addCircles(lng = input$long, lat = input$lat, popup = input$geolocation, label = "current location", color = "red", weight = 15)
                            })

Две проблемы, с которыми я столкнулся: 1) Я отображаю ВСЕ URL-адресадля каждого маркера ИЛИ 2) Я получаю ошибку.

Это будет немного громоздко, но я могу загрузить тестовые данные и полный скрипт, если это поможет.Спасибо!

...