Vertical align checkboxInput and its label

shiny
1

I am building a Shiny app using shinytheme cerulean.
I have a problem with the vertical alignment of a checkboxInput and the label when I format the label using e.g. h3.

Code example:

library(shiny)
library(shinythemes)

ui <- fluidPage( theme = shinytheme("cerulean"),
  
  fluidRow(column(6, checkboxInput("show_values", 
                                   label = HTML("<h3>Show values</h3>"), 
                                   value = FALSE)))
)
server <- function(input, output, session) {}

shinyApp(ui, server)

The result of this code looks awful. The label is far below the checkbox. Would it be possible to vertically align the checkbox and its label?

I searched the internet for solutions. Some suggest the use of a HTML table. I tried but was not successful.

All suggestions highly appreciated.

Gerben

1 Like