title: wrap selectinput options (long texts) present as a datatable column R shiny
body: <p>A column present in a datatable is user selectable i.e. user selects the value from options for that column. The option values are long texts; hence, the full option is not visible while selecting from the dropdown. The texts are overflowing outside the app which are not even visible.</p>
  <p>A minimal example given as below: Only part of option values are visible.</p>
  <pre><code>if(interactive()){
    library(DT)
    library(shiny)
    library(stringi)
    long_txt &lt;- stri_rand_lipsum(n_paragraphs = 1) 
    tbl1 &lt;- data.frame(A = rep(long_txt, 10), B = rep(long_txt, 10), C = rep(long_txt,10), D = rep(long_txt,10))
    ui &lt;- fluidPage(
      DT::dataTableOutput(outputId = 'my_table')
    )
    server &lt;- function(input, output, session) {
      rv &lt;- reactiveValues(tbl = tbl1)
      observe({
        for (i in 1:nrow(rv$tbl)) {
          rv$tbl$Feedback[i] &lt;- as.character(selectInput(paste0(&quot;sel&quot;, i), &quot;&quot;,
                                                         choices = c(rep(long_txt,4))
          ))
        }
      })
      
      output$my_table = DT::renderDataTable({
        datatable(
          rv$tbl, escape = FALSE, selection = 'none', rownames = F,
          options = list( paging = FALSE, ordering = FALSE, scrollx = T, dom = &quot;t&quot;, selectCallback = TRUE,
                          preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
                          drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
          )
        )
      }, server = FALSE) 
    }
    
    shinyApp(ui = ui, server = server)
  }
  
  
  </code></pre>