una - Salida de múltiples líneas de texto con renderText() en R brillante

para que un campo tipo checkbox aparezca marcado por defecto utilizamos el atributo:

Question

Quiero generar varias líneas de texto con un renderText() . Sin embargo, esto no parece posible. Por ejemplo, del brillante tutorial hemos truncado el código en 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])})
}
)

y codigo en ui.R :

shinyUI(pageWithSidebar(
mainPanel(textOutput("text1"),
textOutput("text2"))
))

que esencialmente imprime dos líneas:

You have selected example
You have chosen a range that goes from example range.

¿Es posible combinar las dos líneas de output$text1 y de output$text2 en un bloque de código? Mis esfuerzos hasta ahora han fracasado, por ejemplo.

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])})

¿Alguien tiene alguna idea?

Answer 1

Puede usar renderUI y htmlOutput lugar de renderText y textOutput .

require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("censusVis"),
sidebarPanel(
helpText("Create demographic maps with
information from the 2010 US Census."),
selectInput("var",
label = "Choose a variable to display",
choices = c("Percent White", "Percent Black",
"Percent Hispanic", "Percent Asian"),
selected = "Percent White"),
sliderInput("range",
label = "Range of interest:",
min = 0, max = 100, value = c(0, 100))
),
mainPanel(textOutput("text1"),
textOutput("text2"),
htmlOutput("text")
)
),
server = 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])})
output$text <- renderUI({
str1 <- paste("You have selected", input$var)
str2 <- paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])
HTML(paste(str1, str2, sep = ''<br/>''))
})
}
)
)

Tenga en cuenta que necesita utilizar <br/> como un salto de línea. Además, el texto que desea mostrar debe ser HTML escapado, así que use la función HTML .

Answer 2

Según Joe Cheng :

Uhhh no recomiendo usar renderUI y htmlOutput [de la manera que se explica en la otra respuesta]. Está tomando texto que es fundamentalmente texto, y está forzando a HTML sin escapar (lo que significa que si el texto incluye una cadena que contiene caracteres HTML especiales, podría analizarse incorrectamente).

¿Qué tal esto en su lugar?

textOutput("foo"),
tags$style(type="text/css", "#foo {white-space: pre-wrap;}")

(Reemplace el foo en #foo con el ID de su salida de texto)

Answer 3

Si quieres decir que no te importa el salto de línea:

output$text = renderText({
paste("You have selected ", input$var, ". You have chosen a range that goes
from", input$range[1], "to", input$range[2], ".")
})