fix legend binning bug. (#35)

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: bitSpatial
 Type: Package
 Title: Tools for Spatial Analysis in Korean Regions
-Version: 0.2.7.9001
-Date: 2024-05-18
+Version: 0.2.7.9002
+Date: 2024-05-19
 Authors@R: c(
   person("Choonghyun", "Ryu",, "[email protected]", role = c("aut", "cre"))
   )

NEWS.md

@@ -1,4 +1,4 @@
-# bitSpatial 0.2.7.9001
+# bitSpatial 0.2.7.9002
 
 ## MAJOR CHANGES
 
@@ -60,6 +60,9 @@
     - pharmacy_info
     - hospital_info
 
+* legend binning 오류. (#35).
+    - thematic_map()
+
 
 
 # bitSpatial 0.2.6

R/plot.R

@@ -167,7 +167,12 @@ thematic_map <- function(
 
       if (length(brks) > col_cnt) {
         brks <- classInt::classIntervals(stats2, n = col_cnt, style = "quantile")
-        brks <- unique(round(brks$brks))
+        # legend binning 오류(#35) 수정
+        # brks <- unique(round(brks$brks))
+        brks_min <-  floor(brks$brks[1])
+        brks_max <-  ceiling(brks$brks[length(brks$brks)])
+        brks_mid <-  round(brks$brks[2:length(brks$brks)-1])
+        brks <- unique(c(brks_min, brks_mid, brks_max))
       }         
     })
 

README.md

@@ -355,7 +355,7 @@ stats_info |>
   gt::as_raw_html()
 ```
 
-<div id="bxseoljwam" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
+<div id="bdeaaxqbbj" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
   &#10;  <table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false" style="-webkit-font-smoothing: antialiased; -moz-osx-font-smoothing: grayscale; font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji'; display: table; border-collapse: collapse; line-height: normal; margin-left: auto; margin-right: auto; color: #333333; font-size: 16px; font-weight: normal; font-style: normal; background-color: #FFFFFF; width: auto; border-top-style: solid; border-top-width: 2px; border-top-color: #A8A8A8; border-right-style: none; border-right-width: 2px; border-right-color: #D3D3D3; border-bottom-style: solid; border-bottom-width: 2px; border-bottom-color: #A8A8A8; border-left-style: none; border-left-width: 2px; border-left-color: #D3D3D3;" bgcolor="#FFFFFF">
   <thead style="border-style: none;">
     &#10;    <tr class="gt_col_headings" style="border-style: none; border-top-style: solid; border-top-width: 2px; border-top-color: #D3D3D3; border-bottom-style: solid; border-bottom-width: 2px; border-bottom-color: #D3D3D3; border-left-style: none; border-left-width: 1px; border-left-color: #D3D3D3; border-right-style: none; border-right-width: 1px; border-right-color: #D3D3D3;">