Plot out of bounds - bscols + plotly + flexdashboard

I am using crosstalk, plotly and flexdashboard to generate a dashboard, but the filters and the plot in bscols are out of bounds when i knit the rmarkdown.

I tried to control with fig.width, fig.height, out.height, out.width and with pltoly options, but no success.

Any ideias how to change it?

Below an example:

title: "Untitled"
    orientation: columns
    vertical_layout: fill

```{r setup, include=FALSE}
Column {data-width=650}
### Chart A
```{r test, fig.width=10, fig.height=7, out.height="20%", out.width= "20%"}
base <- mtcars
shared <- SharedData$new(base)
bscols(widths = c(3,NA),
    filter_select("gear", "Gear", shared, ~gear, multiple = F)
  shared |> 
    plot_ly(x=~mpg, y=~hp, type = 'scatter', mode = 'line') |> 
    layout(autosize = F, width = 500, height = 500))


rmarkdown: 2.24
flexdashboard: 0.6.2
crosstalk: 1.2.0
plotly: 4.10.2
R: 4.1.3 (2022-03-10)

Thanks in advance...

Please format your issue correctly if you want users to chime in and help you.

FAQ: How to Format R Markdown Source

Thank you