DT scroll bar not working in FlexDashboard

test2.txt

I noticed a few old issues about this topic, and I would repropose the issue again as it is pretty frustrating.

Basically when in CONNECT. The DT scroll bar is not working with Flexdashboard using shiny runtime and scroll vertical_layout.
The DT is not contained in the column, and consequently the scroll bar disappear.

It works perfectly with RSTUDIO, but doesn't when the report is published in CONNECT.
Is it a Flexdashboard or Connect issue?

Here a reproducible example (also attached as TXT):

`---
title: "Untitled"
output:
flexdashboard::flex_dashboard:
orientation: row
vertical_layout: scroll
runtime: shiny

library(flexdashboard)

Column Sidebar {.sidebar}

Column {data-width=650}

Chart A

DT::renderDataTable(server=T,{
    #a very wide and tall  table
    data=mtcars
    data=cbind(data,data)
    data=cbind(data,data)
    data=rbind(data,data)
    data=rbind(data,data)
    dt= DT::datatable(data
                      ,extensions = c('FixedColumns')
                      ,escape=FALSE
                      ,rownames=FALSE
                      ,filter = list(position = 'top', clear = FALSE, plain=T)
                      ,options = list(
                          dom = 'ifrtlp'
                          ,fixedColumns=list(leftColumns =1)
                          ,searching=T
                          ,pageLength=10
                          ,scrollX=TRUE
                          ,autoWidth = T
                          ,deferRender=F
                          ,stateSave=TRUE
                      ))
    return(dt)
})

Column {data-width=350}

Chart B

Chart C

`

Start with the attached test2.txt and the embedded flexdashboard example; publish it with shiny runtime in CONNECT and compare it with RStudio using vertical_layout: scroll and the DT table. Trace whether the failure is in FlexDashboard's scroll/layout handling or CONNECT integration, and consider it done when the table remains contained and its vertical scrollbar is usable in CONNECT.