我的目标是在标签中包含一个操作链接(显示帮助文本)selectInput
button.
library(shiny)
ui <- fluidPage(
br(),
selectInput(
inputId = "some_id",
label = "Please choose A or B (get help)",
choices = c("choice A", "choice B"),
selected = "choice A",
selectize = F
),
actionLink(inputId = "action_link", label = "get help")
) # fluidPage
server <- function(input, output) {}
shinyApp(ui, server)
我想解决方案是使用label = HTML(...)
,但我不知道如何用纯 html 重写操作链接。
selectInput(
inputId = "some_id",
label = HTML("Please choose A or B",
as.character(actionLink(inputId = 'action_link', label = 'get help'))),
choices = c("choice A", "choice B"),
selected = "choice A",
selectize = F
)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)