Font in a gt table not working an in Rshiny app

...
Font changes to a gt table are being reflected when we run the following code

 mtcars%>%
          head()%>%
          gt()%>%
          opt_table_font(
            font="Georgia"
  )

However, when the same thing is run using an R shiny app, then the font are not reflected correctly

library(shiny)
library(gt)

ui <- fluidPage(
  gt_output("table")
)

server = function(input, output, session) {
  
  output$table <- gt::render_gt({

    data<-mtcars%>%
      head()%>%
      gt()%>%
      opt_table_font(
        font="Georgia"
      
  )

  } 
  )

}

shinyApp(ui, server)

seems to be tension between the bootstrap css that fluidpage loads in and the way gt sets the font.
this can be demonstrated by omitting the fluidpage wrapper

ui <- gt_output("table")

solutions might be to write a bespoke css file, or perhaps worth raising with the gt developers so that they can consider if they can address it in their code.