不能自定义‘`shinyBS::bsButton`’的‘`size`’参数

Question

使用shinyBS::bsButton()，可以有一个style = "default"按钮和一个自定义大小，例如：

bsButton("but1", style = "default", label = "small button with default style", size = "extra-small")

我有一个闪亮的仪表板，由于未知的原因，自定义bsButton() 的bsButton()参数不再导致UI.中的大小更改。

知道我在我的应用程序中做了什么(太复杂以至于无法粘贴)导致了这种行为吗？

已装载的软件包如下：

  library(plyr) 
  require(dplyr)
  library(shiny)
  library(shinyBS)
  library(shinyWidgets) 
  library(shinyjs) 
  library(shinydashboard)
  library(shinydashboardPlus)
  library(dashboardthemes)

我的dashboardBody()元素中确实有dashboardBody()，我注释它是为了查看它是否来自这里，但是没有(它存储{font-family: Century Gothic, sans-serif;} for *、input、label和h1-4)。我也有一些tags$style()，但仍然，甚至所有的禁用不解决问题。

我真的很想了解我做了什么来修改这些按钮的样式。

编辑我注意到，参数type of showNotification()也存在相同类型的问题，无论向哪个type发出通知都是灰色的默认通知。

Answer 1

仪表板主题包最初是由用户请求更改整个应用程序中按钮的高度。因此，shinyDashboardThemeDIY函数中有一个名为buttonHeight的参数，该参数具有默认值(34)，但可以更改。

您可以通过使用以下代码来解决问题--这是灯主题，但是在末尾添加了额外的buttonHeight = "auto“行。这将使shinyBS能够覆盖单个按钮的行为。

请注意，由于资源限制，除了主shinydashboard之外，我通常不检查与其他包的兼容性问题。

解决你的问题：

shinyDashboardThemeDIY(
  
  ### general
  appFontFamily = "Arial"
  ,appFontColor = "rgb(45,45,45)"
  ,primaryFontColor = "rgb(15,15,15)"
  ,infoFontColor = "rgb(15,15,15)"
  ,successFontColor = "rgb(15,15,15)"
  ,warningFontColor = "rgb(15,15,15)"
  ,dangerFontColor = "rgb(15,15,15)"
  ,bodyBackColor = "rgb(240,240,240)"
  
  ### header
  ,logoBackColor = "rgb(120,120,120)"
  
  ,headerButtonBackColor = "rgb(120,120,120)"
  ,headerButtonIconColor = "rgb(220,220,220)"
  ,headerButtonBackColorHover = "rgb(100,100,100)"
  ,headerButtonIconColorHover = "rgb(60,60,60)"
  
  ,headerBackColor = "rgb(120,120,120)"
  ,headerBoxShadowColor = "#dfdfdf"
  ,headerBoxShadowSize = "3px 5px 5px"
  
  ### sidebar
  ,sidebarBackColor = "rgb(255,255,255)"
  ,sidebarPadding = 0
  
  ,sidebarMenuBackColor = "transparent"
  ,sidebarMenuPadding = 0
  ,sidebarMenuBorderRadius = 0
  
  ,sidebarShadowRadius = "3px 5px 5px"
  ,sidebarShadowColor = "#dfdfdf"
  
  ,sidebarUserTextColor = "rgb(115,115,115)"
  
  ,sidebarSearchBackColor = "rgb(240,240,240)"
  ,sidebarSearchIconColor = "rgb(100,100,100)"
  ,sidebarSearchBorderColor = "rgb(220,220,220)"
  
  ,sidebarTabTextColor = "rgb(100,100,100)"
  ,sidebarTabTextSize = 14
  ,sidebarTabBorderStyle = "none"
  ,sidebarTabBorderColor = "none"
  ,sidebarTabBorderWidth = 0
  
  ,sidebarTabBackColorSelected = "rgb(230,230,230)"
  ,sidebarTabTextColorSelected = "rgb(0,0,0)"
  ,sidebarTabRadiusSelected = "0px"
  
  ,sidebarTabBackColorHover = "rgb(245,245,245)"
  ,sidebarTabTextColorHover = "rgb(0,0,0)"
  ,sidebarTabBorderStyleHover = "none solid none none"
  ,sidebarTabBorderColorHover = "rgb(200,200,200)"
  ,sidebarTabBorderWidthHover = 4
  ,sidebarTabRadiusHover = "0px"
  
  ,boxBackColor = "rgb(248,248,248)"
  ,boxBorderRadius = 5
  ,boxShadowSize = "none"
  ,boxShadowColor = ""
  ,boxTitleSize = 18
  ,boxDefaultColor = "rgb(225,225,225)"
  ,boxPrimaryColor = "rgb(95,155,213)"
  ,boxInfoColor = "rgb(180,180,180)"
  ,boxSuccessColor = "rgb(112,173,71)"
  ,boxWarningColor = "rgb(237,125,49)"
  ,boxDangerColor = "rgb(232,76,34)"
  
  ,tabBoxTabColor = "rgb(248,248,248)"
  ,tabBoxTabTextSize = 14
  ,tabBoxTabTextColor = "rgb(100,100,100)"
  ,tabBoxTabTextColorSelected = "rgb(45,45,45)"
  ,tabBoxBackColor = "rgb(248,248,248)"
  ,tabBoxHighlightColor = "rgb(200,200,200)"
  ,tabBoxBorderRadius = 5
  
  ### inputs
  ,buttonBackColor = "rgb(215,215,215)"
  ,buttonTextColor = "rgb(45,45,45)"
  ,buttonBorderColor = "rgb(150,150,150)"
  ,buttonBorderRadius = 5
  
  ,buttonBackColorHover = "rgb(190,190,190)"
  ,buttonTextColorHover = "rgb(0,0,0)"
  ,buttonBorderColorHover = "rgb(150,150,150)"
  
  ,textboxBackColor = "rgb(255,255,255)"
  ,textboxBorderColor = "rgb(118,118,118)"
  ,textboxBorderRadius = 5
  ,textboxBackColorSelect = "rgb(245,245,245)"
  ,textboxBorderColorSelect = "rgb(108,108,108)"
  
  ### tables
  ,tableBackColor = "rgb(248,248,248)"
  ,tableBorderColor = "rgb(238,238,238)"
  ,tableBorderTopSize = 1
  ,tableBorderRowSize = 1
  
  ### buttons
  ,buttonHeight = "auto"
  
)

Answer 2

找到了！其原因是下列代码：

      dashboardthemes::shinyDashboardThemes(theme = "grey_light"),

它嵌入了一些CSS，并且必须以某种方式防止大小更改为按钮“默认”类型。

现在我只想知道如何解决这个问题..。