Nanoplots do not shade area beneath when on second tab

Bug where nanoplots area are not shaded when on the second tab. Believe the issue is related to the fill = url(#area-pattern) argument not being found when the plot is a on a separate tab.

library(shiny)
library(bslib)
#> 
#> Attaching package: 'bslib'
#> The following object is masked from 'package:utils':
#> 
#>     page
library(gt)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

# Define the UI
ui <- fluidPage(
      navset_card_underline(
        nav_panel("table1",gt_output("table1")),
        nav_panel("table2",gt_output("table2"))
      )
)

# Define the server code
server <- function(input, output) {

  output$table1 <- render_gt(
    mtcars |> 
      head(10) |> 
      mutate(hp_1 = hp +1,
             hp_2 = hp + 3) |> 
      gt() |> 
      cols_nanoplot(columns = starts_with("hp"))
  )

  output$table2 <- render_gt(
    mtcars |> 
      head(10) |> 
      mutate(hp_1 = hp +1,
             hp_2 = hp + 3) |> 
      gt() |> 
      cols_nanoplot(columns = starts_with("hp"))
  )

}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

Shiny applications not supported in static R Markdown documents

^{Created on 2024-03-07 with reprex v2.0.2}

https://github.com/rstudio/gt/assets/54423399/91823931-4d75-46b2-8ad9-9ebc78b29156

rstudio / gt

Nanoplots do not shade area beneath when on second tab #1601