एक चमकदार ui में कंसोल संदेश ('संदेश` के साथ लिखा गया) दिखाने के लिए संभव है?

Question

(मुझे 0 उत्तरों के बाद चमकदार चर्चा Google समूह से क्रॉस पोस्ट)।

मुझे आर के संदेश बनाम बिल्ली बनाम प्रिंट बनाम इत्यादि बहुत गहराई से समझ में नहीं आता है, लेकिन मुझे आश्चर्य है कि संदेश कैप्चर करना संभव है और उन्हें चमकदार ऐप में कौन सा संभव है?

उदाहरण: निम्नलिखित एप्लिकेशन बिल्ली बयान (और प्रिंट बयान के साथ-साथ) नहीं बल्कि संदेश बयान

runApp(shinyApp(
    ui = fluidPage(
    textOutput("test") 
), 
    server = function(input,output, session) { 
    output$test <- renderPrint({ 
     cat("test cat") 
     message("test message") 
    }) 
    } 
)) 

मूल प्रश्न के लिए लिंक पर कब्जा कर सकते हैं: https://groups.google.com/forum/#!topic/shiny-discuss/UCacIquFJQY

धन्यवाद

Answer 1

Yihui मैं उपयोग का सुझाव दिया withCallingHandlers, और वास्तव में मुझे एक समाधान के लिए अनुमति देते हैं। मुझे पूरा यकीन नहीं था कि उस फ़ंक्शन को इस तरह से कैसे उपयोग किया जाए, जो वास्तव में मेरी ज़रूरत होगी क्योंकि मेरी समस्या यह थी कि मेरे पास एक ऐसा फ़ंक्शन था जो एक समय में कई संदेशों को मुद्रित करता था और एक निष्क्रिय दृष्टिकोण का उपयोग करके केवल अंतिम संदेश मुद्रित करता था।

foo <- function() { 
    message("one") 
    message("two") 
} 

runApp(shinyApp(
    ui = fluidPage(
    actionButton("btn","Click me"), 
    textOutput("text") 
), 
    server = function(input,output, session) { 
    observeEvent(input$btn, { 
     withCallingHandlers(
     foo(), 
     message = function(m) output$text <- renderPrint(m$message) 
    ) 
    }) 
    } 
)) 

सूचना केवल two\n कैसे outputted हो जाता है: यहाँ मेरा पहला प्रयास (जो काम करता है अगर आप केवल दिखाने के लिए एक संदेश है) है। तो मेरा अंतिम समाधान फ़ंक्शन का उपयोग shinyjs पैकेज (अस्वीकरण: मैंने उस पैकेज को लिखा था) का उपयोग करना था, जो मुझे तत्व के अंदर HTML में बदलने या जोड़ने देता है। यह पूरी तरह से काम करता है - अब दोनों संदेशों को रीयल-टाइम में मुद्रित किया गया है।

foo <- function() { 
    message("one") 
    Sys.sleep(0.5) 
    message("two") 
} 

runApp(shinyApp(
    ui = fluidPage(
    shinyjs::useShinyjs(), 
    actionButton("btn","Click me"), 
    textOutput("text") 
), 
    server = function(input,output, session) { 
    observeEvent(input$btn, { 
     withCallingHandlers({ 
     shinyjs::html("text", "") 
     foo() 
     }, 
     message = function(m) { 
      shinyjs::html(id = "text", html = m$message, add = TRUE) 
     }) 
    }) 
    } 
)) 

Answer 2

मैं जानता हूँ कि यह लगभग रूप में सुंदर नहीं है, लेकिन मैं थोड़ा समान समस्या capture.output का उपयोग कर के आसपास काम किया; दुख की बात है sinkसंदेश एस और आउटपुट के साथ-साथ कैप्चर करने की अनुमति नहीं देता है। आप उन्हें मूल आदेश में प्राप्त नहीं है, लेकिन आप कम से कम दोनों धाराओं निकाल सकते हैं (यहाँ एचटीएमएल में बदल गया):

runApp(shinyApp(
    ui = fluidPage(
    uiOutput("test") 
), 
    server = function(input,output, session) { 
    output$test <- renderUI({ 
     HTML(
     paste(capture.output(type = "message", expr = { 
     message(capture.output(type = "output", expr = { 
      cat("test cat<br>") 
      message("test message") 
      cat("test cat2<br>") 
      message("test message2") 
     })) 
     }), collapse="<br>") 
)}) 
}) 
) 

आउटपुट:

test message 
test message2 
test cat 
test cat2 

शायद मामले में उपयोगकर्ता के लिए करना चाहता है, तो दोनों को पकड़ो लेकिन उन्हें अलग भी करें, यह एक आसान काम प्रदान करेगा। (आपका shinyjs पैकेज साफ दिखता है, इसे देखने की आवश्यकता है!)