input should not affect the column width

[shrektan]

Closes #797

• Works on a plain page
• Works for bootstrap themes

Code

library(shiny)
df <- data.frame(
  LONGLONG = c("longlonglonglonglong", 'aaabcdasfasfd', 'ffasfaadsfas'),
  MED = c("mediummedium", 'dfafd','fdsafaf'),
  SHT = as.character(c("short", "fdafa",'aa')),
  # FATR = as.factor(c("short", "fdafa",'aa')),
  # number = 11:13,
  stringsAsFactors = FALSE
)
ui = tagList(
  DT::DTOutput('tbl1'),
  DT::DTOutput('tbl2'),
  DT::DTOutput('tbl3')
)
server = function(input, output, session) {
  output$tbl1 <- DT::renderDT(
    DT::datatable(df)
  )
  output$tbl2 <- DT::renderDT(
    DT::datatable(df, filter = 'top')
  )
  output$tbl3 <- DT::renderDT(
    DT::datatable(df, editable = 'all')
  )
}
runApp(list(ui = ui, server = server))

With this PR

The cell width is basically the same as before.

Before this PR

Every column's width is the same.

[CLAassistant]

Thank you for your submission! We really appreciate it. Like many open source projects, we ask that you sign our Contributor License Agreement before we can accept your contribution.
_{You have signed the CLA already but the status is still pending? Let us recheck it.}