阻止选定的输入换行文本 [英] Prevent selectInput from wrapping text

问题描述

在一个闪亮的应用程序中，有没有办法防止selectInput()中的下拉列表文本换行，如下面的截图所示？每个选项都是一个长文本字符串。我希望下拉列表将每个长字符串显示在一行上，而不是生成巨大的侧边栏。

推荐答案

灵感来自here和here您可以在溺水中添加一些自定义css

这里有一个工作示例

library(shiny)

server <- function(input, output) {
    output$distPlot <- renderPlot({
        hist(rnorm(input$obs), col = 'darkgray', border = 'white')
    })
}

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(
            sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100),
            selectizeInput(inputId = "si",
                            label =  "select", 
                            choices = c("the quick brown fox jumped over the lazy dog the quick brown fox jumped over the lazy dog"), 
                            selected = NULL),

            ## Custom css               
            tags$head(
                tags$style(HTML('
                                .selectize-input {
                                    white-space: nowrap;
                                }
                                .selectize-dropdown {
                                    width: 660px !important;
                                }'
                                )
                        )
            )

        ),
        mainPanel(plotOutput("distPlot"))
    )
)

shinyApp(ui = ui, server = server)

这篇关于阻止选定的输入换行文本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！