有没有办法在带有Shiny R的textInput中放置超链接

Is there a way to place a hyperlink inside a textInput with Shiny R

对于我目前正在进行的项目,我想使用 shiny R 在 textInput 框中放置一个 hyperlink。在 R 中使用以下脚本时,我的 html 代码会显示在 textInput 框内,而不是将 "Google homepage" 显示为可点击的 link。


test <- a("Google Homepage", href="https://www.google.com/")

runApp(
    list(ui = fluidPage(
         textInput("test", "test", test)
    ),
    server = function(input, output, session){
    })
)

是否可以在 textInput 框中放置一个 hyperlink?还是只作为输出值?

正如@Stéphanie 提到的,这是不可能的。 因为您将 a 标记作为输入元素的值包含在内。如果您查看 HTML,您会看到:

<input id="test" type="text" class="form-control shiny-bound-input" value="<a href=&quot;https://www.google.com/&quot;>Google Homepage</a>">

因此,如果您只想要可点击的 link,则不需要 textInput。 只需将 a tag 放入 fluidPage:

test <- a("Google Homepage", href="https://www.google.com/")

runApp(
  list(ui = fluidPage(
    test
  ),
  server = function(input, output, session){
  })
)