Wrap text output that is rendered with textOutput()

shiny
3

Thanks, this is really helpful.

Wonder if you can brainstorm ideas with me here. The function I'm trying to output (HTML) text from prints the output.

It's a bit clunky but here's the basic idea (if this could be improved, I welcome suggestions for sure) for the server file:

df <- eventReactive(input$button, {
    pkonfound(as.numeric(input$unstd_beta), 
              as.numeric(input$std_error), 
              as.numeric(input$n_obs), 
              as.numeric(input$n_covariates))
})

output$text <- renderText({
    df()
})

Then the UI file would be something like what you wrote:

ui <- fluidPage(
  tags$head(tags$style(HTML("pre { white-space: pre-wrap; word-break: keep-all; }"))),
  textOutput("text")
)

Any ideas how I could use the print output... as HTML? capture.output()?