添加變量到閃亮的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鏈接有困難

回答

相關問題