R Shiny: Wrap text for long UI options

Question

I'm using prettyCheckboxGroup from shinyWidgets within a sidebar panel in Shiny. Some of the items are unavoidably a bit long and so they extend out of the edge of the sidebar.

I'd like to know how to either wrap long text or limit the width for text to force it on to the next line.

I assumed that the width argument would achieve this but it only seems to effect the caption and not the choices text.

The standard checkboxGroupInput did this as standard so I'm wondering if I am missing something with the fancier ShinyWidgets version?

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  sidebarPanel(
    width = 2,
    uiOutput('boxpick')
  )
)

server<- function(input, output) {
  output$boxpick <- renderUI(
    prettyCheckboxGroup('boxpick', 'Pick an item:',
                       choices= c('really really long', 
                                  'really really really really long',
                                  'really really really really really really really really long')
                       )
  )
}

shinyApp(ui,server)

You might just have to settle for `shiny::checkboxGroupInput()` — objectclosure, Jul 23 '22 at 09:24
So are you saying it is impossible? This doesn't really help with my question — r0bt, Jul 23 '22 at 10:42
All I'm saying is `shiny::checkboxGroupInput()` automatically wraps long options and is worth considering as a solution to your problem. — objectclosure, Jul 23 '22 at 12:31
I'm aware of this. But, like I said in the post, I want to re-create the same functionality using `prettyCheckboxGroup `. — r0bt, Jul 23 '22 at 14:42

R Shiny: Wrap text for long UI options

0 Answers0