web-dev-qa-db-ja.com

R ShinyでURLハイパーリンクを作成しますか？

私のコード：

library(shiny)
runApp(
  list(ui = fluidPage(
     uiOutput("tab")
    ),
  server = function(input, output, session){
    url <- a("Google Homepage", href="https://www.google.com/")
    output$tab <- renderUI({
      paste("URL link:", url)
    })
  })
)

現在の出力：

URL link: <a href="https://www.google.com/">Google Homepage</a>

望ましい出力：

URL link: Google Homepage

どこ Google Homepageはクリック可能なハイパーリンクです。

ここで指示されているように、現在renderUI/uiOutputデュオを使用しています： 光沢のあるアプリでハイパーリンクをインタラクティブに作成する方法は？

rhyperlinkshiny
12
warship

pasteを使用すると、urlを文字列として扱います。ここで使用したい関数は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)
    })
  })
)
20
DeanAttali