如何将带有单张地图的rpub制作成全屏输出？

library(shiny)
library(leaflet)

map_data <- readRDS("path/to/your/rpub/file.rds")

ui <- fluidPage(
  tags$style(type="text/css", "html, body {width:100%; height:100%}"),
  leafletOutput("map", width="100%", height="100%")
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      addMarkers(data=map_data, lat=~latitude, lng=~longitude)
  })
}

shinyApp(ui, server)