[Bug]: slider_input with some themes

[guiguilegui]

Guidelines

• [X] I agree to follow this project's Contributing Guidelines.

Project Version

No response

Platform and OS Version

No response

Existing Issues

No response

What happened?

Hello! Super great package! I'm not sure if this is related to issue #295 , but the slider input has weird behaviour with most of the themes.

Steps to reproduce

If we add a theme to the sample code for the slider_input, we get a buggy vertical slider instead. This behaviour happens for most of the themes.

Code to reproduce:

library(shiny)
library(shiny.semantic)

ui_cyborg <- shinyUI(                                                              
        semanticPage(                                                             
          title = "Slider example",                                               
          theme = "cyborg",                                                     
          tags$br(),                                                              
          slider_input("slider", 10, 0, 20, class = "labeled ticked"),            
          p("Selected value:"),                                                   
          textOutput("slider")                                                    
        )                                                                         
      )  

server <- shinyServer(function(input, output, session) {                    
  output$slider <- renderText(input$slider)                                 
})           

shinyApp(ui = ui_cyborg, server = server)  

> sessionInfo()                                                                   
R version 4.2.3 (2023-03-15 ucrt)                                                 
Platform: x86_64-w64-mingw32/x64 (64-bit)                                         
Running under: Windows 10 x64 (build 19045)                                       
                                                                                  
Matrix products: default                                                          
                                                                                  
locale:                                                                           
[1] LC_COLLATE=French_Canada.utf8  LC_CTYPE=French_Canada.utf8                    
[3] LC_MONETARY=French_Canada.utf8 LC_NUMERIC=C                                   
[5] LC_TIME=French_Canada.utf8                                                    
                                                                                  
attached base packages:                                                           
[1] stats     graphics  grDevices datasets  utils     methods   base              
                                                                                  
other attached packages:                                                          
[1] shiny_1.8.0          shiny.semantic_0.5.0                                     
                                                                                  
loaded via a namespace (and not attached):                                        
 [1] Rcpp_1.0.12           magrittr_2.0.3        xtable_1.8-4                     
 [4] R6_2.5.1              rlang_1.1.3           fastmap_1.1.1                    
 [7] tools_4.2.3           cli_3.6.2             jquerylib_0.1.4                  
[10] htmltools_0.5.7       ellipsis_0.3.2        digest_0.6.34                    
[13] lifecycle_1.0.4       purrr_1.0.2           later_1.3.2                      
[16] sass_0.4.8            htmlwidgets_1.6.4     vctrs_0.6.5                      
[19] promises_1.2.1        memoise_2.0.1         glue_1.7.0                       
[22] cachem_1.0.8          mime_0.12             compiler_4.2.3                   
[25] bslib_0.6.1           semantic.assets_1.1.0 jsonlite_1.8.8                   
[28] httpuv_1.6.14

Expected behavior

The sample code works for the default theme:

library(shiny)
library(shiny.semantic)

ui <- shinyUI(                                                              
        semanticPage(                                                             
          title = "Slider example",                                               
          tags$br(),                                                              
          slider_input("slider", 10, 0, 20, class = "labeled ticked"),            
          p("Selected value:"),                                                   
          textOutput("slider")                                                    
        )                                                                         
      )                                                                           
server <- shinyServer(function(input, output, session) {                    
  output$slider <- renderText(input$slider)                                 
})                                                                          

shinyApp(ui = ui, server = server)

The "readable" theme is an additional example of a theme that works as expected.

Attachments

No response

Screenshots or Videos

No response

Additional Information

No response