如何在R Shiny中调整指定actionButton的行间距？

需求：仅对指定的actionButton控件调整内部行间距，不影响整个Shiny应用的全局样式，示例代码如下，期望实现按钮内两行文字间距更紧凑的效果。

示例初始代码：

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)

解决方案 #

直接在目标actionButton的style参数中添加line-height属性，即可单独控制该按钮内的行间距，无需修改全局样式。调整line-height的数值（比如1、1.2等）可以得到不同的紧凑程度：

修改后的代码：

library(shiny)

ui <- fluidPage(
  br(),
  actionButton(
    "add",
    HTML("Add <br/> column"), 
    width = '80px',
    style='padding:0px; font-size:100%; line-height: 1;') # 新增行间距控制属性
  )

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

shinyApp(ui, server)

说明：

• line-height的值可按需调整：数值越小，行间距越紧凑；数值越大，行间距越宽松。
• 该方式仅作用于当前actionButton，不会影响应用内其他控件或元素的样式。

内容的提问来源于stack exchange，提问作者Village.Idyot