R несколько слоев в листовке (используя tmap)

Question

Я хочу создать карту, используя библиотеку tmap (чтобы сэкономить кучу шейп-файлов).

Затем я конвертирую в буклет с выпадающим меню, чтобы выбрать, какие данные я хочу показать.

В приведенном ниже примере я выберу sh для опции выбора, чтобы отобразить либо HPI и pop_est вместо World. Мне удалось это сделать, но я так и не понял, как заставить его показывать только один по умолчанию (т.е. HPI)

#Load libraries
library(tmap)
library(leaflet)
#Load Data
data("World")

#Create Tmap object 
    HPI<-tm_shape(World2,name="HPI") +
      tm_polygons("HPI",alpha=0.5)

    Pop<-tm_shape(World2,name="Pop") +
      tm_polygons("pop_est",alpha=0.5)

    #Convert to leaflet
    lf<-tmap_leaflet(c(HPI,Pop)) 

#Print leaflet map
lf