rShiny textOutput and Paragraph on same line

Question

I'm trying to put a renderText element in the form of textOutput next to a header, but it keeps putting them on different lines.

h1('This is the number:'), textOutput(output$number)

This doesn't work either:

p(h1('This is the number:'), textOutput(output$number))

Anyone have any work arounds?

Answer 1

You can do it using css

ui=shinyUI(fluidPage(
tags$head(tags$style("
                  #number{
                  display:inline
                  }")),
h1('This is the number:',style="display:inline"), textOutput("number")
)

)

server=function(input,output){
  output$number=renderText({5})
}

shinyApp(ui,server)

or

ui=shinyUI(fluidPage(
tags$head(tags$style("
                  #container * {  
   display: inline;
                     }")),
div(id="container",h1('This is the number:'), textOutput("number"))
)

)

Answer 2

Construct everything in the server.R

output$textWithNumber <- renderText({ 
   paste("This is the number:", yourNumber)
})

Then in ui.R

h1(textOutput("textWithNumber"))