fett gedruckten Text in HTML-Ausgabe R glänzend

Question

Reproduzierbare Beispiel:

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

Ich möchte das Wort haben, um Index entspricht („Waschbär“ in der Standardeinstellung) angezeigt in fett und die anderen Wörter in normalen Schriftart.

Wenn ich tun:

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

Ich erhalte einen Fehler (< nicht erkannt wird) ...

Answer 1

Noch ein Versuch, ist das hilfreich?

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

Answer 2

Wenn Sie sich über die Verwendung der HTML Funktion nicht gesetzt ist, ich glaube, Sie sollten in der Lage sein, stattdessen strong(paste(character_vector[index])) verwenden.

Answer 3

Dies könnte Ihnen helfen:

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

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

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

    }) 

Ist das, was Sie suchen?