Ajuster l'espacement des lignes dans R Shiny : un guide étape par étape

Question

J'essaie d'ajuster les espaces entre les lignes dans un actionButton() rendu dans une application Shiny comme indiqué ci-dessous et en fonction du code MWE en bas. Comment ajuster l’espacement des lignes ?

S'applique uniquement à ce bouton d'action, pas à l'ensemble de l'application. Je ne suis pas très familier avec HTML ou CSS, mais si je me souviens bien, il existe un moyen d'appliquer le formatage HTML/CSS à tous les objets de l'application ou uniquement aux objets spécifiés dans l'application : je souhaite l'appliquer uniquement au objet spécifié.

Code 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

Vous pouvez remplacer les règles CSS brillantes par défaut line-height.

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