Open DivadNojnarg opened 6 years ago
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)
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.
As shown below:
the label should be next to the slider. However, I think this is a problem coming from bulma itself.
👍