update hex sticker code

Author: mountainMath

R/hex_sticker.R

@@ -1,14 +1,13 @@
 #' Internal function to generate hex sticker
 #' @keywords internal
 generate_cansim_hex_sticker <- function (){
-  income_data <- cansim::get_cansim("11-10-0239") %>%
-    cansim::normalize_cansim_values()
   income_age_groups <- c("16 to 24 years",    "25 to 34 years" ,   "35 to 44 years" ,   "45 to 54 years" ,"55 to 64 years",    "65 years and over")
-  income_plot_data <- income_data %>%
+  income_plot_data <- cansim::get_cansim_connection("11-10-0239") %>%
     dplyr::filter(Sex=="Both sexes",
            Statistics=="Median income (excluding zeros)",
            `Income source`=="Total income",
            `Age group` %in% income_age_groups) %>%
+    cansim::collect_and_normalize() %>%
     dplyr::mutate(`Age group`=factor(`Age group`,levels=income_age_groups)) %>%
     dplyr::group_by(GEO,`Age group`) %>%
     dplyr::left_join(dplyr::filter(.,Date==min(Date)) %>%
@@ -19,15 +18,39 @@ generate_cansim_hex_sticker <- function (){
   pd <- income_plot_data %>% dplyr::filter(GEO=="Canada")
   ed <- pd %>% dplyr::filter(Date==max(Date))
 
-  ca_data <- cancensus::get_census("CA16",regions=list(C="01"),geo_format='sf') %>% sf::st_transform(102002)
+  crs <- 'PROJCS["Canada_Lambert_Conformal_Conic",
+    GEOGCS["NAD83",
+        DATUM["North_American_Datum_1983",
+            SPHEROID["GRS 1980",6378137,298.257222101,
+                AUTHORITY["EPSG","7019"]],
+            AUTHORITY["EPSG","6269"]],
+        PRIMEM["Greenwich",0,
+            AUTHORITY["EPSG","8901"]],
+        UNIT["degree",0.0174532925199433,
+            AUTHORITY["EPSG","9122"]],
+        AUTHORITY["EPSG","4269"]],
+    PROJECTION["Lambert_Conformal_Conic_2SP"],
+    PARAMETER["latitude_of_origin",40],
+    PARAMETER["central_meridian",-96],
+    PARAMETER["standard_parallel_1",50],
+    PARAMETER["standard_parallel_2",70],
+    PARAMETER["false_easting",0],
+    PARAMETER["false_northing",0],
+    UNIT["metre",1,
+        AUTHORITY["EPSG","9001"]],
+    AXIS["Easting",EAST],
+    AXIS["Northing",NORTH],
+    AUTHORITY["ESRI","102002"]]'
+
+  ca_data <- cancensus::get_census("CA16",regions=list(C="01"),geo_format='sf') %>% sf::st_transform(crs)
   q <- ggplot2::ggplot(ca_data) +
     ggplot2::geom_sf(fill="grey20",size=0.01) +
     ggplot2::theme_void() +
     hexSticker::theme_transparent()
   bbox=sf::st_bbox(ca_data)
   p<-ggplot2::ggplot(pd,ggplot2::aes(x=Date,y=VALUE,color=`Age group`)) +
     ggplot2::geom_line() +
-    ggplot2::scale_color_brewer(palette="Dark2",guide=FALSE) +
+    ggplot2::scale_color_brewer(palette="Dark2",guide='none') +
     ggplot2::labs(x="",y="") +
     ggplot2::theme_void() +
     hexSticker::theme_transparent()
@@ -45,6 +68,16 @@ generate_cansim_hex_sticker <- function (){
           p_color="white",
           filename=here::here("images/cansim-sticker.png"))
 
+  if (FALSE) {
+    hexSticker::sticker(pp, package="CanViz",
+                        p_size=8, p_y=1.5,
+                        s_x=1, s_y=0.78, s_width=1.5, s_height=1.5,
+                        h_color="#FF0000",
+                        h_fill= "grey40",
+                        p_color="white",
+                        filename=here::here("~/Downloads/canviz-sticker.svg"))
+  }
+
 }
 
 #' Internal function to update table list