Question

将超链接添加到下拉标头是否简单？我希望用户能够方便地单击“ R Quantile Type”以获取更多信息，并且除了下拉标题本身之外，无需使用其他宝贵的房地产。

server <- function(input, output) {
 output$distPlot <- renderPlot({
hist(rnorm(input$r_qtype), col = 'darkgray', border = 'white')
})
}

ui <- fluidPage(
sidebarLayout(
 sidebarPanel(
  selectInput("r_qtype",
    "R Quantile Type",  

  #https://www.rdocumentation.org/packages/stats/versions/3.5.1/topics/quantile
              choices = c(4,5,6,7,8,9), selected = 6)  
), 
mainPanel(plotOutput("distPlot"))))

shinyApp(ui = ui, server = server)

Answer 1

使用tags$a，我们可以添加超链接

selectInput("r_qtype",
tags$a("R Quantile Type",href='https://www.rdocumentation.org/packages/stats/versions/3.5.1/topics/quantile'),
...)

编辑

HTML("<a target='_blank' href='https://www.rdocumentation.org/packages/stats/versions/3.5.1/topics/quantile'>R</a> Quantile Type"),

超链接Shiny用户界面下拉菜单的标题？

1 个答案: