在 R Shiny 中调整行间距：分步指南

Question

我正在尝试调整在 Shiny 应用程序中呈现的 actionButton() 中的行之间的间隙，如下所示并根据底部的 MWE 代码。如何调整行间距？

仅适用于该操作按钮，不适用于整个应用程序。我对 HTML 或 CSS 不是很熟悉，但如果我记得有一种方法可以将 HTML/CSS 格式应用于应用程序中的所有对象或仅应用于应用程序中的指定对象：我有兴趣仅将其应用于指定对象。

MWE代码：

library(shiny)

ui <- fluidPage(
  br(),
  actionButton(
    "add",
    HTML("Add <br/> column"), 
    width = '80px',
    style='padding:0px; font-size:100%')
  )

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

shinyApp(ui, server)

Answer 1

您可以覆盖闪亮的默认 line-height css 规则。

actionButton(
    "add",
    HTML("Add 
 column"), 
    width = '80px',
    style='padding:0px; font-size:100%; line-height:1;') // notice addition of 'line-height:1;'
  )

/*this is default styling aplied by shiny*/

button {
  color: #333;
  background-color: #fff;
  display: inline-block;
  margin-bottom: 0;
  font-weight: 400;
  text-align: center;
  white-space: nowrap;
  vertical-align: middle;
  -ms-touch-action: manipulation;
  touch-action: manipulation;
  cursor: pointer;
  border: 1px solid #ccc;
  padding: 6px 12px;
  font-size: 14px;
  line-height: 1.42857143;
  border-radius: 4px;
  -webkit-user-select: none;
  -moz-user-select: none;
  -ms-user-select: none;
  user-select: none;
  cursor: pointer;
  -webkit-appearance: button;
  text-transform: none;
}

 Add 
 column