My code:
library(shiny)
runApp(
list(ui = fluidPage(
uiOutput(\"tab\")
),
server = function(input, output, session){
url <- a(\"Google Ho
-
You can use html tags whatever you want to tag
tags$a(href="www.rstudio.com", "Click here!")
## <a href="www.rstudio.com">Click here!</a>
讨论(0)
-
By using paste
, you're treating the url
as a string. The function you want to use here is tagList
:
runApp(
list(ui = fluidPage(
uiOutput("tab")
),
server = function(input, output, session){
url <- a("Google Homepage", href="https://www.google.com/")
output$tab <- renderUI({
tagList("URL link:", url)
})
})
)
讨论(0)
- 热议问题