Я хочу вывести несколько строк текста с помощью одной команды renderText()
. Однако это не представляется возможным. Например, из блестящего учебника мы усекаем код в 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])})
У кого-нибудь есть идеи?