Question

我试图将renderText元素以textOutput的形式放在标题旁边，但它会将它们放在不同的行上。

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

这不起作用：

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

任何人有任何工作吗？

Answer 1

构建server.R

中的所有内容

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

然后在ui.R

h1(textOutput("textWithNumber"))

Answer 2

您可以使用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"))
)

)

Answer 3

textOutput() 有一个内联标志（我认为在给出之前的答案时它不存在）。这意味着文本被包裹在一个跨度而不是一个 div 中，即：

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

将在一行上，无需自定义 CSS。

rShiny textOutput和Paragraph在同一行

3 个答案: