web-dev-qa-db-fra.com

Rendre le texte en gras dans la sortie HTML brillant

Exemple reproductible:

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 que le mot correspondant à l'index ("raton laveur" par défaut) soit affiché en gras et les autres mots en police normale.

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)])
)

Je reçois une erreur (< n'est pas reconnu)...

14
Antoine

Encore un essai, 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))
    })
  }
))
21
Sebastian

Cela pourrait vous aider:

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

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

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

  })

C'est bien ce que vous cherchiez?

7
Sebastian

Si vous n'êtes pas prêt à utiliser la fonction HTML, je pense que vous devriez pouvoir utiliser strong(paste(character_vector[index])) à la place.

3
JasonAizkalns