R 中的文本输出作为超链接闪亮

Question

我需要将outputText（Key_facts）作为超链接，每当我从csv文件中提取它时，你能帮我弄清楚如何解决这个问题吗

library(shiny)

info_360 <- read.csv('data/360_photos.csv')
ui <-
fluidRow(
box(
title = "Key Facts",
closable = FALSE,
width = 9,
status = "primary",
solidHeader = FALSE,
collapsible = TRUE,
textOutput("keyfacts"))

server <- function(input, output,session)     {
Keyfactstext <- reactive({
if (input$mySliderText %in% info_360$press )
{
info_360 %>%
filter(press == input$mySliderText)%>%
pull(Key_facts) 

**#this contains a text that includes a website link, I need only the link to appear as a hyperlink?????????????????**

}
})

output$keyfacts<- renderText({ Keyfactstext ()})
}

shinyApp(ui = ui, server = server)    

Answer 1

这可能有效，但没有你的文件我无法测试

library(shiny)

info_360 <- read.csv('data/360_photos.csv')
ui <-
  fluidRow(
    box(
      title = "Key Facts",
      closable = FALSE,
      width = 9,
      status = "primary",
      solidHeader = FALSE,
      collapsible = TRUE,
      uiOutput("keyfacts"))
    
    server <- function(input, output,session)     {
      Keyfactstext <- reactive({
        if (input$mySliderText %in% info_360$press )
        {
          info_360 %>%
            filter(press == input$mySliderText)%>%
            pull(Key_facts) 
          
          **#this contains a text that includes a website link, I need only the link to appear as a hyperlink?????????????????**
            
        }
      })
      
      output$keyfacts<- renderUI({
        tagList$a(href = Keyfactstext(), "Click me")})
    }
    
    shinyApp(ui = ui, server = server)