添加变量到闪亮的uiOutput的url链接有困难

我想创建一个基于selectInput选择的twitter页面的链接。我有一个data.frame，DF，与相关的昵称添加变量到闪亮的uiOutput的url链接有困难

所以在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

来源

2014-09-23 pssguy

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, '")') 

    })

来源

2014-09-23 17:40:53 jdharrison

谢谢。你的实际建议似乎并未达到相当的标准。需要关闭支架，并投掷了"，但让我跟踪到（“Twitter”，class =“web”，href = paste0（'https://twitter.com/'，twitterUrl））。如果你想修改答案，我会信任它。 Tx再次 – pssguy 2014-09-23 20:23:49

是的，这是非可重复的例子，他们需要一些想象力和耐心的有趣的事情。 – jdharrison 2014-09-23 20:25:15

添加变量到闪亮的uiOutput的url链接有困难

回答

相关问题