Преобразование расширяемой спарклайна Plotly в график HighCharter в карте bslib с помощью javascript

bslib имеет полезную документацию по расширяемым спарклайнам . В документации используется JavaScript для изменения существующего графика при раскрытии карты. Я пытаюсь имитировать то же поведение, но для высокого сюжета, а не сюжетного сюжета.

Я хочу, чтобы это было в JavaScript, а не использовало shiny::getCurrentOutputInfo(), поскольку это создает задержку при расширении и сворачивании окна.

Я бы хотел, чтобы на графике были видны оси x и y, а также чтобы график можно было экспортировать при расширении и скрывать эти элементы при свертывании. По сути, это то поведение, которое я хотел бы видеть при использовании функции getCurrentOutputInfo (обратите внимание на задержку и повторный рендеринг графика).

Пример приложения

library(shiny)
library(bslib)
library(highcharter)

ui <- page_fluid(
    value_box(
      title = "Test",
      value = "Test",
      showcase = highchartOutput("hcp"),
      showcase_layout = showcase_top_right(),
      full_screen = TRUE,
      theme = "success"
  )
)

server <- function(input, output) {
  
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(4.2, 10, 29.5))
  
  output$hcp <- renderHighchart({
    highchart_scatter()
  })
  
  highchart_scatter <- function(x) {
    info <- getCurrentOutputInfo()
    large <- isTRUE(info$height() > 200)
    
    df2 <- df %>% 
      hchart('line', hcaes(x = dose, y = len))
    
    if (large){
      df2 <- df2 %>%
        hc_exporting(enabled = TRUE)
    } else {
      df2 <- df2 %>%
        hc_xAxis(visible = FALSE) %>% 
        hc_yAxis(visible = FALSE)
    }
    return(df2)
  }
}

shinyApp(ui, server)

А это пример js-кода для преобразования сюжета, который я, по сути, хотел бы имитировать.

пример построения графика на JavaScript

  htmlwidgets::onRender(
    "function(el) {
      var ro = new ResizeObserver(function() {
         var visible = el.offsetHeight > 200;
         Plotly.relayout(el, {'xaxis.visible': visible});
      });
      ro.observe(el);
    }"
  )