How to put HTML in radioButtons and sliderInput labels ?

[Vincke Grégoire]

Hi,

I want tu put real HTML tags in labels of radio buttons and sliders in a
ui.R.

Instead of :
radioButtons("truehyp", "Model considered as true :",
list( "H1" = "h1",
"H0" = "h0")),
I have tested :
radioButtons("truehyp", "Model considered as true :",
list( HTML("H₁") = "h1",
HTML("H₀") = "h0")),

But it does not work, despite it works with checkboxes :
checkboxInput("alpha", HTML(" α | "), TRUE),
checkboxInput("showmu0", HTML(" μ₀ | "), TRUE),

The same problem exist with sliders :
sliderInput("mu0", HTML(" μ₀ : mean of H₀ :")
,min = 1,max = 100,value = 40, step=0.5),
will not render HTML put output it as raw text.

Does someone have a trick to render HTML tags in labels of radio/sliders
inputs ?

Thanks,

Gr�goire

[Stéphane Laurent]

Hello, 

I have just taken a look at sliderInput. We can look what happens in the html code generated by sliderInput() : 

> wrap_ui <- function(x){

   cat(as.character(x))

 }

> wrap_ui(sliderInput("mu0",  HTML("H₀") 

                                       ,min = 1,max = 100,value = 40, step=0.5))

<div>

  <label class="control-label" for="mu0">H&lt;sub&gt;0&lt;/sub&gt;</label>

  <input id="mu0" type="slider" name="mu0" value="40" class="jslider" data-from="1" data-to="100" data-step="0.5" data-skin="plastic" data-round="false" data-locale="us" data-format="#,##0.#####" data-smooth="false"/>

</div>

The problem is that the label losts its html attribute because of the as.character() function at the beginning:

> sliderInput

function (inputId, label, min, max, value, step = NULL, round = FALSE, 

    format = "#,##0.#####", locale = "us", ticks = TRUE, animate = FALSE) 

{

    labelText <- as.character(label)

    ...........

    tags$div(tagList(controlLabel(inputId, labelText), slider(inputId, 

        min = min, max = max, value = value, step = step, round = round, 

        locale = locale, format = format, ticks = ticks, animate = animate)))

}

<environment: namespace:shiny>

A possible solution is to modify the controlLabel() function appearing at the end :

> shiny:::controlLabel

function (controlName, label) 

{

  tags$label(class = "control-label", `for` = controlName, 

             label)

}

Replacing label with HTML(label) should work. Since controlLabel() is internal to shiny you can proceed as follows :

controlLabel <- function (controlName, label) 

{

  tags$label(class = "control-label", `for` = controlName, 

             HTML(label))

}

assignInNamespace("controlLabel",controlLabel, ns="shiny")

And now it should work for sliderInput : 

> wrap_ui(sliderInput("mu0",  HTML("H₀") 

                                       ,min = 1,max = 100,value = 40, step=0.5))

<div>

  <label class="control-label" for="mu0">H₀</label>

  <input id="mu0" type="slider" name="mu0" value="40" class="jslider" data-from="1" data-to="100" data-step="0.5" data-skin="plastic" data-round="false" data-locale="us" data-format="#,##0.#####" data-smooth="false"/>

</div>

[Stéphane Laurent]

I have just seen a similar question on stackoverflow http://stackoverflow.com/questions/20079594/r-shiny-how-can-i-format-choices-in-a-a-selectinput-drop-box

Should we report an issue for this point ? It would be better to have the possibility to put html code in widget labels.

[JP]

Hello,

 I posted that question - thanks for you reply, I will try it out, hopefully tomorrow. 

I think it would be great if we could just add the html code directly - how do you report an issue?

[Stéphane Laurent]

Hi JP,

 On github: https://github.com/rstudio/shiny/issues

[Joe Cheng]

Yes, please do log an issue, thanks.

On Tue, Nov 19, 2013 at 10:30 PM, Stéphane Laurent <lauren...@yahoo.fr> wrote:

Hi JP,

 On github: https://github.com/rstudio/shiny/issues

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

[JP]

I have logged it here

https://github.com/rstudio/shiny/issues/300

[Stéphane Laurent]

According to this auto-answered question on SO it works by using div(HTML(..)) instead of HTML(...).   

[Yihui Xie]

Now the HTML() label also works for sliderInput() in the development
version: http://stackoverflow.com/questions/21617462/how-can-i-add-symbols-in-slider-labels

Regards,
Yihui