如何在不破坏标签文本的情况下缩短数字输入框的输入字段？

Question

如何缩短放置在侧面板中的数字输入框的输入字段，使其上方的长label文字不被破坏？请参阅以下示例：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(numericInput("num_input", "This is long text that should not be broken", value = 0)),
    mainPanel()))

server <- function(input, output, session) {}

shinyApp(ui, server)

我知道numericInput有一个width参数，但是缩短它会导致label文本中的换行符，这是我不想要的。

Answer 1

您可以使用css设置标签元素的white-space属性的样式。在这种情况下，我在div标签内完成了样式：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # white-space: nowrap; ensures that the label doesn't wrap
      # as the app window becomes smaller
      div(style = "white-space: nowrap;", 
          numericInput("num_input", "This is long text that should not be broken", 
              width = 280, value = 0)
          )
      ),
    mainPanel()))

server <- function(input, output, session) {}

shinyApp(ui, server)