HTML आउटपुट आर चमकदार में बोल्ड टेक्स्ट बनाएं




r formatting (2)

पुनरुत्पादक उदाहरण:

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

मैं सूचकांक से संबंधित शब्द (डिफ़ॉल्ट में "एक प्रकार का जानवर") को बोल्ड और सामान्य फ़ॉन्ट में दूसरे शब्दों में प्रदर्शित करना चाहते हैं।

यदि मैं करता हूँ:

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

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


एक और कोशिश, क्या यह सहायक है?

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

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







shiny