r Shiny 的文本输出和段落在同一行

Question

我想放一个 renderText textOutput 形式的元素在标题旁边，但它一直将它们放在不同的行上。

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

这也不起作用:

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

有人有任何解决方法吗？

Answer 1

你可以用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)

或者

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

)