update desc and example

vignettes/ShapeMap.Rmd

@@ -18,7 +18,7 @@ knitr::opts_chunk$set(
 
 ### Overview
 
-This package provides functions to add choropleth map layers for Chinese cities and provinces to a Leaflet map object. These layers can be customized with various options such as color scales, labels, and popups.
+This package provides functions to add shape map layers for Chinese cities and provinces to a Leaflet map object. These layers can be customized with various options such as color scales, labels, and popups.
 
 ### Installation
 
@@ -29,11 +29,19 @@ This package provides functions to add choropleth map layers for Chinese cities
 
 ### Usage
 
-#### Adding 
+#### Adding Amap Tiles
+
+```{r}
+library(leaflet)
+library(leafletZH)
+leaflet() %>%
+  addTilesAmap() %>%
+  setView(lng = 120.33739, lat = 31.13533, zoom = 3)
+```
 
 #### Adding a City Layer
 
-To add a choropleth map layer for cities, use the addCityShape function. You will need a data frame containing the data to be visualized, including the Chinese administrative division codes (adcode).
+To add a shape map layer for cities, use the addCityShape function. You will need a data frame containing the data to be visualized, including the Chinese administrative division codes (adcode).You can get adcode from `leafletZH::china_city`
 
 ```{r}
 library(leaflet)
@@ -52,36 +60,57 @@ leaflet() |>
 
 #### Adding a Province Layer
 
-To add a choropleth map layer for provinces, use the addProvinceShape function. Similar to the city layer, you will need a data frame containing the data to be visualized.
+To add a shape map layer for provinces, use the addProvinceShape function. Similar to the city layer, you will need a data frame containing the data to be visualized.You can get adcode from `leafletZH::china_province`
+
+
 
 ```{r}
 library(leaflet)
 library(leaflet.extras)
 library(leafletZH)
-data <- data.frame(name = leafletZH::china_province$name, value = runif(34))
-backg <- htmltools::tags$style(".leaflet-container { background: #000; }")
+library(sf)
+data <- data.frame(adcode = seq(110000, 150000, 10000), value = runif(5))
 leaflet() |>
+  leafletZH::addTilesAmap() |>
   addProvinceShape(
-    data = data, provinceName = "name", valueProperty = "value",
+    data = data, adcode = "adcode", valueProperty = "value",
     popupProps = c("value")
   ) |>
-  setView(lng = 110, lat = 40, zoom = 4) |>
-  htmlwidgets::prependContent(backg)
+  setView(lng = 110, lat = 40, zoom = 3)
 ```
 
 
+
+```{r}         
+library(leaflet)
+library(leaflet.extras)
+library(leafletZH)
+library(dplyr)
+data <- data.frame(name = c("河北省", "山西", "陕西"), value = runif(3))
+leaflet() %>%
+  leafletZH::addTilesAmap() %>%
+  addProvinceShape(
+    data = data,
+    provinceName = "name",
+    valueProperty = "value",
+    popupProps = c("value")
+  ) %>%
+  setView(lng = 110, lat = 40, zoom = 4)
+```
+
+Change the background color with `htmlwidgets`
+
 ```{r}
 library(leaflet)
 library(leaflet.extras)
 library(leafletZH)
-library(sf)
-data <- data.frame(adcode = seq(110000, 150000, 10000), value = runif(5))
+data <- data.frame(name = leafletZH::china_province$name, value = runif(34))
+backg <- htmltools::tags$style(".leaflet-container { background: #000; }")
 leaflet() |>
-  leafletZH::addTilesAmap() |>
   addProvinceShape(
-    data = data, adcode = "adcode", valueProperty = "value",
+    data = data, provinceName = "name", valueProperty = "value",
     popupProps = c("value")
   ) |>
-  setView(lng = 110, lat = 40, zoom = 4)
+  setView(lng = 110, lat = 40, zoom = 2) |>
+  htmlwidgets::prependContent(backg)
 ```
-