R shinydashboard adjust plot height in relation to collapsed/expanded box

Question

here is the code that I currently have:

library(shiny)
library(shinyWidgets)
library(dplyr)
library(shinydashboard)
library(plotly)
library(shinyjs)

jscode &