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(
shiny+leaflet小案例
最新推荐文章于 2024-06-14 16:40:11 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)