Question

对于我当前正在从事的项目，我想使用闪亮的R将超链接放置在textInput框内。在R中使用以下脚本时，我的html代码将显示在textInput框内，而不是显示“ Google主页”作为可点击的链接。


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

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

是否可以在textInput框内放置超链接？还是仅作为输出值？

Answer 1

正如@Stéphanie所说，这是不可能的。因为您将标签包含为输入元素的值。如果您查看HTML，则会看到：

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

因此，如果您只想要可点击的链接，则不需要textInput。只需将a tag放在fluidPage中：

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

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

有没有一种方法可以在Shiny R的textInput内放置超链接

1 个答案: