r-RShiny静态文本和textOutput在同一行

Question

我制作了一个简单的与金融和交易相关的RShiny应用程序。https://obrienciaran.shinyapps.io/cfd_new_value/

这可能是一个非常基本的问题，但现在在侧栏中，你可以看到文字，上面写着"当前保证金："，下面有一个百分比。通过：获得

tags$b("Current margin:"),
h5(textOutput("current_margin"))

我只想把这些输出并排显示为

'当前利润率：x%'

而不是

'当前保证金：'

"x%">

Answer 1

使用参数inline=TRUE并将文本"当前保证金"；和同一div中的输出，这里是h5。

library(shiny)
ui <- 
fluidPage(
h5(tags$b("Current margin:"),textOutput("current_margin", inline = TRUE))
)

server <- function(input, output, session) {
output$current_margin <- renderText({
"10%"
})
}
shinyApp(ui, server)