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

【问题标题】：Having difficulty with adding a variable to a url link in shiny uiOutput难以在闪亮的 uiOutput 中向 url 链接添加变量
【发布时间】：2014-11-18 00:04:45
【问题描述】：

我正在尝试基于 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

【问题讨论】：

标签： r shiny

【解决方案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, '")')

  })

【讨论】：

谢谢。您的实际建议似乎不太符合要求。需要右括号并吐出“但让我走上轨道 a("Twitter", class= "web", href = paste0('twitter.com', twitterUrl))。如果你想修改答案，我会相信它。再次发送
是的，这就是不可复制的例子的有趣之处，它们需要一些想象力和耐心。