R Блестящие радиокнопки с катексом

Использование переключателей в Shiny для выбора модели. Модели определяются по формуле с использованием катекса. Есть ли способ вставить катекс в выбор кнопок?

Я пробовал этот подход который не работает с катексом:

radioButtons_withHTML("my_model", label = h4("Choose model"),
    choices = list(
                   HTML(katex("y = (ax^\\nu + b)^{-1}")) = 1, 
                   "Exponential" = 2), 
    selected = 1)

В настоящее время формула находится рядом с переключателями, которые не совпадают. введите описание изображения здесь


shiny katex
person Vlad    schedule 21.09.2017    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вы можете использовать HTML в аргументе choiceNames следующим образом:

library(shiny)
    ui <- fluidPage(

      radioButtons("my_model", label = h4("Choose model"),
      choiceNames = list(tags$span(HTML("y = (ax<sup>&nu;</sup> + b)<sup>-1</sup>")),
                         tags$span(HTML("y = (e<sup>ax</sup> + &nu;e<sup>bx</sup>)<sup>-1</sup>"))
                         ), 
      choiceValues = c(1,2), selected = 1)

    )

    server <- shinyServer(function(input, output) {
    })

    shinyApp(ui = ui, server = server)

В результате вы получите следующий результат:

введите описание изображения здесь

person SBista    schedule 24.10.2017