小编Ved*_*ash的帖子

pickerInput 中的选择总是在单行中出现。有没有办法将它们带到下一行？This is a problem when the length of the choice is very long making the choice go out of the screen. 我特别需要pickerInput，因为它具有实时搜索，全选/取消选择其中的所有功能。

library("shiny")
library("shinyWidgets")
ui <- fluidPage(
  pickerInput(inputId="id",label="Some name",
    choices=c("Choice 1 is small","Choice 2 is average sized",
    "But choice 3 is very  big and sometimes when the length of the qption is long it leaves the screen, so I need a UI fix to wrap the question to fit the width of the pickerInput. I want pickerInput because it …

我无法获得改变闪亮仪表板主体背景颜色的范围.我不想使用外部CSS,因为我正在托管的Shiny服务器不支持它.无论我做什么,我都无法找到仪表板背景的HTML标签,所以我可以更改它.背景颜色总是#ECF0F5我做的.这是一个可重复的应用程序.

library(shinydashboard)
library(shiny)
library(DT)
library(shinyWidgets)
library(dplyr)
ui=shinyUI(
  dashboardPage(
    dashboardHeader(
      title = "Example of a long title that needs more space",
      titleWidth = 450
    ),
    dashboardSidebar( sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", icon = icon("th"), tabName = "widgets",
               badgeLabel = "new", badgeColor = "green")
    )),
    dashboardBody(
      # Also add some custom CSS to make the title background area the same
      # color as the rest of the header.
      tags$head(tags$style(HTML('
                                /* logo */
                                .skin-blue .main-header .logo { …