R 我如何在Shiny中动态呈现HTML链接？

在一个闪亮的应用程序中，我想使用从文件加载的URL动态创建链接。该链接显示在条件面板中。在我的第一次尝试中，ui部分如下所示：

     conditionalPanel(condition = "input.myEvent",
            fluidRow(column(12,tags$p(textOutput("description")))),
            fluidRow(column(6, tags$a(href='http://www.google.com/', "Google"))),
            fluidRow(column(6, tags$a(href="url", 'website'))),

    observeEvent(input$myEvent, { 
          p <- input$myEvent

          description = c(data[data$Name == p, ]$Description)
          output$description <- renderText(description)

          url1 = c(data[data$Name == p, ]$Website)
          output$url <- renderText(url1)
      }
    )

虽然服务器部分如下所示：

     conditionalPanel(condition = "input.myEvent",
            fluidRow(column(12,tags$p(textOutput("description")))),
            fluidRow(column(6, tags$a(href='http://www.google.com/', "Google"))),
            fluidRow(column(6, tags$a(href="url", 'website'))),

    observeEvent(input$myEvent, { 
          p <- input$myEvent

          description = c(data[data$Name == p, ]$Description)
          output$description <- renderText(description)

          url1 = c(data[data$Name == p, ]$Website)
          output$url <- renderText(url1)
      }
    )

服务器部分如下所示：

          url <- a("website", href='url1')
          output$url <- renderUI({
              paste(url)
          })
    

---

url不确定这是否完全回答了您的问题，但您可能缺少
HTML（粘贴（url））
以将其添加到链接中

库（闪亮）
hrefs HTML（）调用解决了部分问题，您的href=hrefs[]等示例解决了另一部分问题。IDK为什么我假定href=中的值必须是字符串文字。