Can bslib nested card fullscreen behavior show just the nested card?

When I use the option full_screen = TRUE with nested cards, clicking the fullscreen icon maximizes both cards. Can it be set to show just the internal card as fullscreen?

library(shiny)
library(bslib)

ui = page(
  card(
    full_screen = F,
    card_header(
      "Main card",
    ),
      card(
        full_screen = T,
        card_header(
          "Plot card"
        ),
        plotOutput("plot")
      # )
    )
  )
)

server = function(input, output)
{
  output$plot = renderPlot(hist(rnorm(100)))
}

shinyApp(ui, server)

Here is solution using Javascript:

library(shiny)
library(bslib)

# Define custom JavaScript
js <- '
function toggleFullscreen(element) {
  if (!document.fullscreenElement) {
    element.requestFullscreen().catch(console.log);
  } else {
    document.exitFullscreen();
  }
}

$(document).on("shiny:connected", function() {
  $("#nestedCard").on("click", function() {
    toggleFullscreen(document.querySelector("#nestedCard"));
  });
});
'

ui = page(
  headerPanel("Nested Fullscreen Card"),
  mainPanel(
    tags$head(tags$script(HTML(js))), # Inject custom JS
    tags$div(
      id = "mainCard",
      class = "card",
      tags$div(
        class = "card-body",
        tags$h5("Main card", class = "card-title"),
        tags$div(
          id = "nestedCard",
          class = "card",
          tags$div(
            class = "card-body",
            tags$h5("Plot card", class = "card-title"),
            plotOutput("plot")
          )
        )
      )
    )
  )
)

server = function(input, output)
{
  output$plot = renderPlot(hist(rnorm(100)))
}

shinyApp(ui, server)

The problem has been fixed in a newer version of bslib:
https://github.com/rstudio/bslib/issues/558