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()?