Vertical align checkboxInput and its label

shiny
2 
library(shiny)
library(shinythemes)

ui <- fluidPage(
  theme = shinytheme("cerulean"),

  fluidRow(
    tags$style("#show_values {
    height: 50px;
    width: 50px;}"),
    column(6, checkboxInput("show_values",
      label = HTML('<h3 
                    style="position: fixed;left: 75px;">
                   Show values
                   </h3>'),
      value = FALSE
    ))
  )
)
server <- function(input, output, session) {}

shinyApp(ui, server)
1 Like