在Shny中打印message（）

Question

在renderText中的messsage中不能在main panel中打印。 许多函数使用message。但是它不会以Shiny打印出来。 我们必须更改要在Shiny中使用的软件包功能的定义吗？ 还是一些好的治疗方法？

如何从Shiny中的功能message()打印消息？

library(shiny)

 ui <- fluidPage(

     titlePanel(" I want to print the message  "),

     sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),

         mainPanel(
           textOutput("text1"),
           textOutput("text2"),
           textOutput("text3"),
           textOutput("text4")


        )
    )
)

 server <- function(input, output) {

    output$text1 <- renderText({
        message(sprintf("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"))
        # sprintf("aaaaaaaaaaaaaaaaaaaaaaaaaaaa")
    })

    output$text2 <- renderText({
         message("bbbbbbbbbbbbbbbbbbbbbbb")
        # "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"

     })



    output$text3 <- renderText({

        paste("cccccccccccccccccccccccccccccccccccccc")
    })


    output$text4 <- renderText({

        cat("dddddddddddddddddddddddddddddddddd")
    })

}

# Run the application 
shinyApp(ui = ui, server = server)