我想用一个renderText()
命令输出多行文本.然而,这似乎是不可能的.例如,从shiny tutorial开始,我们在server.R
中截断了代码:
shinyServer(
function(input, output) {
output$text1 <- renderText({paste("You have selected", input$var)
output$text2 <- renderText({paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])})
}
)
代码为ui.R
:
shinyUI(pageWithSidebar(
mainPanel(textOutput("text1"),
textOutput("text2"))
))
它基本上打印了两行:
You have selected example
You have chosen a range that goes from example range.
是否可以将第output$text1
行和第output$text2
行合并为一个代码块?到目前为止,我的努力都失败了.
output$text = renderText({paste("You have selected ", input$var, "\n", "You have chosen a range that goes from", input$range[1], "to", input$range[2])})
有人有什么 idea 吗?