在 Shiny 中使用 renderDataTable 扩展列的宽度

Question

我无法理解使用 Shiny 的renderDataTable函数的行为。
我正在尝试扩展一个特定列的宽度。
当我不使用 Shiny 并且只是试图将表格的输出可视化时，我写了下面的内容，并在图中得到了预期的输出（ Amazon Title列已扩展）：

Category <- c("Tools & Home Improvement", "Tools & Home Improvement")
AmazonTitle <- c("0.15,Klein Tools NCVT-2 Non Contact Voltage Tester- Dual Range Pen Voltage Detector for Standard and Low Voltage with 3 m Drop Protection", " ABCDFGEGEEFE")
ASIN_url <- c("<a href='https://www.amazon.com/dp/B004FXJOQO'>https://www.amazon.com/dp/B004FXJOQO</a>", "<a href='https://www.amazon.com/dp/B004FXJOQO'>https://www.amazon.com/dp/B0043XJOQO</a>")
ASIN <- c("B004FXJOQO", "B0043XJOQO")

All_ASIN_Information <- data.frame(Category, AmazonTitle, ASIN_url, ASIN)

DT::datatable(All_ASIN_Information, escape=FALSE, 
              options = list(
                pageLength = 20, autoWidth = TRUE,
                columnDefs = list(list( targets = 2, width = '600px'))
              )
)

但是当我在用于 Shiny 的DT::renderDataTable函数中使用这个确切的块时，结果是不同的并且列宽没有扩展......
使用以下代码查看 Shiny 的行为：

library(shiny)
library(DT)


ui <- fluidPage(

  mainPanel(

    DT::dataTableOutput("Table_ASIN")))


server <- function(input, output){

  output$Table_ASIN <- DT::renderDataTable(

    DT::datatable(All_ASIN_Information, escape=FALSE, 
                  options = list(
                    pageLength = 20, autoWidth = TRUE,
                    columnDefs = list(list( targets = 2, width = '600px'))
                  )))

}

shinyApp(ui, server)

我不知道这种行为是否是由“ASIN_url”列中创建的超链接引起的，但无论如何我真的需要它们。

任何帮助都非常感谢！

Answer 1

一种选择是像这样缩短链接：

ASIN_url <- c("<a href='https://www.amazon.com/dp/B004FXJOQO'>Link</a>", "<a href='https://www.amazon.com/dp/B004FXJOQO'>Link</a>")

另一种方法是通过在选项列表中包含scrollX = TRUE来添加滚动条