shiny+leaflet小案例

library(shiny)
library(leaflet)
library(tidyverse)
library(lubridate)
source("helpers.R")

POI_values <- readr::read_csv("data/POI_values.csv")

ui <- bootstrapPage(
    
    tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
    
    leafletOutput("map", width = "100%", height = "100%"),
    
    absolutePanel(top = 10, right = 10,
                  selectInput("var", 
                              label = "Choose a city to display",
                              choices = c("北京市",
                                          "上海市",
                                          "广州市"),
                              selected = "北京市"),
                  
                  selectInput("var2", 
                              label = "Choose a POI to display",
                              choices = c(