使用Shiny + R2D3图表保持宽高比

Question

我正在尝试使用r2d3库在Shiny仪表板中添加D3.js图表​​。我的图表位于一列内，该列使用窗口宽度的50％：

body <- dashboardBody(
    tabsetPanel(
        tabPanel("Summary", column(6, d3Output("chart"))),
        tabPanel(...)
    )
)

我需要图表的高度为宽度的60％，但我无法实现。服务器包含以下代码段：

function(input, output, session) {
    ...
    output$chart <- renderD3({r2d3(script="chart.js", 
                                   container="svg", data=c(0.1, 0.3, 0.5, 0.7, 1))})
}

我尝试通过在d3Output UI元素中设置 height =“ auto” 来尝试，但是它不起作用。

是否可以使用 session 对象在服务器中动态设置高度？还是有另一种选择？

预先感谢， 塞尔吉奥。