Вывод текста в следующей строке в пользовательском интерфейсе приложения Shiny

Question

Я использую приведенный ниже код для отображения textOutput рядом с заголовком, но он всегда отображается в следующей строке.

В настоящее время отображается: -

GrandTotal:-

Display $ Value

Ожидается отображение

GrandTotal:- Display $ Value

Вот код, который я использую.

ui <- fluidPage(
  div(style="display: inline-block;vertical-align:top; width: 150px;",h3(style="color:blue;font-size:100%;","GrandTotal:-"),textOutput("Test"))
  )
server <- function(input,output) {

  output$Test <- renderText("Display $ Value")
}
shinyApp(ui, server)

Answer 1

Оберните их обоих в div и добавьте стиль block к ним примерно так:

rm(list = ls())
library(shiny)

ui <- fluidPage(
  div(style="display: inline-block;width:80px;",h3(style="color:blue;font-size:100%;","GrandTotal:-")),
  div(style="display: inline-block;",textOutput("Test"))
)
server <- function(input,output) {
  output$Test <- renderText("Display $ Value")
}
shinyApp(ui, server)