cols在Shiny应用程序的标签$ textarea中不起作用

Question

在下面的代码示例中。 cols在标签$ textarea中不起作用。

library(shiny)
# Global variables can go here
# Define the UI
ui <- bootstrapPage(
tags$textarea(id="foo", rows="10", cols="4000", "Default value")
)
# Define the server code
server <- function(input, output) {
}
# Return a Shiny app object
shinyApp(ui = ui, server = server)

如何用它复制？感谢。

Answer 1

这是因为Bootstrap定义了<textarea>（206px）的宽度，你必须覆盖Bootstrap样式，例如

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