bulmasliderInput vertical display not perfect

[DivadNojnarg]

As shown below:

the label should be next to the slider. However, I think this is a problem coming from bulma itself.

👍

[JohnCoene]

Yes indeed. I guess one could wrap it in a column

  library(shiny)
  
  ui <- bulmaPage(
    bulmaContainer(
        bulmaColumns(
          bulmaColumn(bulmaSliderInput("slider", 10, 3, 150, orient = "vertical"), width = 1),
          bulmaColumn(plotOutput("plot"), width = 11)
        )
    )
  )
  
  server <- function(input, output){
    data <- reactive({
      rnorm(input$slider, 20, 4)
    })
    
    output$plot <- renderPlot({
      hist(data())
    })
  }
  
  shinyApp(ui, server)

[JohnCoene]

Looking back, the slider was missing dependencies, looks much better now.

The vertical seems like a hack and does not look good in the official doc either.