Question

我正在尝试根据selectInput选择创建指向twitter页面的链接。我有一个data.frame，df，带有名称列和相关的screenNames

所以在ui.R有

selectInput("name","Tweeter",personChoice, selected="Jane Doe"),
uiOutput('twitterLink')

并在server.R

中

output$twitterLink <- renderUI({

  twitterUrl <-df[df$name==input$name,]$screenName 
  print(twitterUrl #jdoe

# a("Twitter", class="web", href="https://twitter.com/jdoe") Hard code works

  paste0('a(\"Twitter\", class=\"web\", href=\"https://twitter.com/',twitterUrl,'\")')

})

结果是文本

浏览器中的

a（“Twitter”，class =“web”，href =“https://twitter.com/jdoe”）

tags$body(uiOutput('twitterLink'))

不影响结果

TIA

Answer 1

a是一个输出相应html的函数：

> a("Twitter", class="web", href="https://twitter.com/jdoe")
<a class="web" href="https://twitter.com/jdoe">Twitter</a>

您的renderUI应采用以下形式：

  output$twitterLink <- renderUI({

    twitterUrl <-df[df$name==input$name,]$screenName 
    a("Twitter", class = "web", href = paste0('"https://twitter.com/', twitterUrl, '")')

  })

难以在闪亮的uiOutput中向url链接添加变量

1 个答案: