在Shiny数据表的右侧添加白色边框

Question

我有一个闪亮的网络应用程序，其中有一个数据表，我希望在它周围放一个白色边框，所以看起来它不会被截断在页面的右侧。

这是服务器代码：

output$stats_table <- DT::renderDataTable(DT::datatable({
    # Do not show the table when the page first loads
    # Wait until the user clicks "Plot" button
    if (input$plot_graph_button == 0)
    return()

   data <- summary_table
   data
}))

我找到了一个参数：width = "80%"，但是，我没有让它工作。

提前感谢您提供任何提示/帮助。

Answer 1

对于任何可能遇到同样问题的人，我都明白了。

你不能放：

width = "80%"

进入服务器代码块，它实际上必须放在UI块内，否则代码将被忽略。

现在回过头来看，这是有意义的，因为应用程序会查看UI代码来渲染图形所需的空间，因此，为什么需要指定它将占用多少空间。

我在UI中的最终代码：

fluidRow(
    DT::dataTableOutput("stats_table", width = "80%")
)

最终结果：

click here