HTML आउटपुट आर में चमकदार

Question

प्रतिलिपि प्रस्तुत करने योग्य उदाहरण बोल्ड पाठ करें:

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

मैं (< मान्यता प्राप्त नहीं है) एक त्रुटि प्राप्त ...

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

Answer 2

आप HTML समारोह का उपयोग करने पर सेट नहीं कर रहे हैं, मेरा मानना ​​है कि आप में सक्षम होना चाहिए इसके बजाए strong(paste(character_vector[index])) का उपयोग करने के लिए।

Answer 3

यह आपकी मदद कर सकता है:

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

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

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

    }) 

कि क्या आप के लिए देख रहे थे?