Сделайте полужирный текст в HTML-выходе R shiny

Воспроизводимый пример:

require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("Example"),
  sidebarPanel(
    sliderInput("index", 
                label = "Select a number",
                min = 1,
                max = 4,
                step = 1,
                value = 2)),
  mainPanel(
  htmlOutput("text")
  )),
server = function(input, output) {
  output$text <- renderUI({
    HTML(paste(c("banana","raccoon","duck","grapefruit")))
  })
}
))

Я хотел бы иметь слово, соответствующее индексу ( "raccoon" по умолчанию), отображаемому в жирным шрифтом, а остальные слова - в обычном шрифте.

Если я это сделаю:

HTML(
<b>paste(c("banana","raccoon","duck","grapefruit")[input$index])<\b>,
paste(c("banana","raccoon","duck","grapefruit")[setdiff(1:4,input$index)])
)

Я получаю сообщение об ошибке (< не распознается)...

Ответ 1

Еще одна попытка, это полезно?

require(shiny)

fruits <- c("banana","raccoon","duck","grapefruit")

runApp(list(ui = pageWithSidebar(
  headerPanel("Example"),
  sidebarPanel(
    sliderInput("index", 
                label = "Select a number",
                min = 1,
                max = 4,
                step = 1,
                value = 2)),
  mainPanel(
    htmlOutput("text")
  )),
  server = function(input, output) {
    output$text <- renderUI({
      fruits[input$index] <- paste("<b>",fruits[input$index],"</b>")
      HTML(paste(fruits))
    })
  }
))

Ответ 2

Это может помочь вам:

shinyApp(
  ui <- basicPage(
    uiOutput(outputId = "text")

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

    output$text <- renderText({
      HTML(paste0("<b>","bold","</b>", " not bold"))
    })

  })

Это то, что вы искали?

Ответ 3

Если вы не используете функцию HTML, я считаю, что вы должны использовать strong(paste(character_vector[index])) вместо этого.

Ответ 4

проверьте эту ссылку

tags$b("This text is bold.")