闪亮的应用程序-如何在传单标记中正确显示URL

Question

我想使我的标记中包含一个链接，以便每个标记都动态指向正确的URL。我觉得我已经很亲近了，但是遇到了一些问题。

我能够在应用程序底部显示所有链接：

在ui内

$UserName = "Foo"
$Password = "Bar"
$Domain = "mydomain"

Add-Type -AssemblyName System.DirectoryServices.AccountManagement
$DS = New-Object System.DirectoryServices.AccountManagement.PrincipalContext('domain',$Domain)
$DS.ValidateCredentials($UserName, $Password)

在服务器内部

htmlOutput("link")

---这在我的3个位置的测试数据集中有效。当我有数百个位置时，我只想在标记中利用链接。我知道我可以创建这些链接，但是当我尝试为每个标记获取1个网址时，就会遇到问题。

这里是正确的文本，但我希望将其显示为URL

    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>'))
})

我遇到的两个问题是1）我显示每个标记的所有URL或2）我收到错误。

这会有点麻烦，但是我可以加载测试数据和完整脚本，如果有帮助的话。谢谢！