tmap fullPage

tmap_fullPage

library(shiny)
library(tmap)
library(tidyverse)
library(fullPage)

data(World)
world_vars <- setdiff(names(World), c("iso_a3", "name", "sovereignt", "geometry"))

ui <- pagePiling(
    sections.color = c('#ebebeb', '#f1f1f1'),
    opts = options,
    menu = c(
      "Start" = "home",
      "Introduction" ="intro"
    ),
    pageSection(
      pageContainer(
    tmapOutput("map")
      )
  ),
  fullPage::pageSection(
  )
)

server <- function(input, output, session) {
  output$map <- renderTmap({
    tm_shape(World) +
      tm_polygons(world_vars[1], zindex = 401)
  })
}	


shinyApp(ui, server)