कैसे आर चमकदार स्ट्रिंग में नई लाइन डालने के लिए

Question

चमकदार में, मैं निम्नलिखित है:

output$sequenceText <- renderText({ 
    showSequence() 
    }) 

showSequence <- reactive({ 
    selectedSeqs <- as.numeric(input$sequenceSelect) 
    resultString <- "" 
    currentString <-"" 

    for(i in selectedSeqs){ 
    currentString <- paste(i, toString(myProts[i]), sep = ":") 
    resultString <- paste(resultString, currentString, sep = "\n") 
    } 
    return(resultString) 

}) 

हालांकि, यह प्रतीत नहीं होता कि नई लाइन चरित्र सम्मान दिया जाता है। मुझसे इसका समाधान किस प्रकार होगा?

धन्यवाद!

Answer 1

मेरे ज्ञान के लिए, चमकदार के भीतर कई लाइनों को प्रदर्शित करने के लिए केवल दो विकल्प हैं। verbatimTextOutput का उपयोग करने का एक तरीका जो आपके आस-पास के पाठ (व्यक्तिगत वरीयता) के चारों ओर एक ग्रे बॉक्स प्रदान करेगा। दूसरा कच्चे एचटीएमएल का उपयोग करने के लिए renderUI और htmlOutput का उपयोग करना है। परिणाम प्रदर्शित करने के लिए यहां एक बुनियादी कार्य उदाहरण है।

require(shiny) 
runApp(
    list(
    ui = pageWithSidebar(
     headerPanel("multi-line test"), 
     sidebarPanel(
     p("Demo Page.") 
    ), 
     mainPanel(
     verbatimTextOutput("text"), 
     htmlOutput("text2") 
    ) 
    ), 
    server = function(input, output){ 

     output$text <- renderText({ 
     paste("hello", "world", sep="\n") 
     }) 

     output$text2 <- renderUI({ 
     HTML(paste("hello", "world", sep="<br/>")) 
     }) 

    } 
) 
) 

यह निम्न चित्र पैदावार: