How to include an action link into a button's label?

Question

My goal is to include an action link (that displays a help text) into the label of a 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)

I guess the solution is to use label = HTML(...), but I do not know how to rewrite the action link in plain html.

score 4 · Accepted Answer · answered Jan 30 '19 at 14:51

4

  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
  )

answered Jan 30 '19 at 14:51

Stéphane Laurent

75,186
15
119
225

how would you do this while using `updateSelectInput`, I tried using the same `HTML` block, but it just prints the `HTML` code and not the intended `actionLink` – road_to_quantdom Apr 03 '19 at 08:53

score 4 · Answer 2 · answered Jan 30 '19 at 14:53

4

You can also use tags such as a and p

library(shiny)

ui <- fluidPage(
  br(),
  selectInput(
    inputId = "some_id", 
    label = p("Please choose A or B ",a("get help", href = "https://www.google.com/", target = "_blank")),
    choices = c("choice A", "choice B"),
    selected = "choice A",
    selectize = F
  )
) # fluidPage

server <- function(input, output) {}

shinyApp(ui, server)

answered Jan 30 '19 at 14:53

Pork Chop

28,528
5
63
77

This approach was new to me. – Joe Jan 30 '19 at 14:54

How to include an action link into a button's label?

2 Answers2

Linked