Alert box cuts off text when string is too long without whitespace

[daattali]

Example:

library(shiny)

ui <- fluidPage(

)

server <- function(input, output, session) {
  shinyalert::shinyalert(text = "one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thirteen,fourteen,fifteen")
}

shinyApp(ui, server)