Faire un texte en gras dans la sortie HTML R brillant

Reproductible exemple:

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")))
  })
}
))

Je voudrais avoir le mot correspondant à l'index"raton laveur" en la valeur par défaut) affiche dans gras et les autres mots en caractères normaux.

Si je fais:

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

J'ai un message d'erreur (< n'est pas reconnu)...

source d'informationauteur Antoine

  1. 14

    Un plus essayer, est-ce utile?

    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. 4

    Ce qui pourrait vous aider:

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

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

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

  })

    Est-ce que vous recherchez?

  3. 2

    Si vous n'êtes pas fixé sur l'utilisation de la HTML fonction, je crois que vous devriez être en mesure d'utiliser strong(paste(character_vector[index])) à la place.