r - cols does not work in tags$textarea of a Shiny application -

in following code example. cols not work in tags$textarea.

library(shiny) # global variables can go here # define ui ui <- bootstrappage( tags$textarea(id="foo", rows="10", cols="4000", "default value") ) # define server code server <- function(input, output) { } # return shiny app object shinyapp(ui = ui, server = server) 

how copy it? thanks.

this because bootstrap has defined width <textarea> (206px), , have override bootstrap style, e.g.

tags$textarea(id="foo", rows="10", style="width:800px;", "default value")