sticker tuning

PolMine · Jul 15, 2018 · 54a2d01 · 54a2d01
1 parent 237935b
commit 54a2d01
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 6 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -13,7 +13,7 @@ knitr::opts_chunk$set(
 )
 ```
 
-# The GermaParl R Data package <img src="https://github.com/PolMine/GermaParl/blob/master/inst/sticker/hexsticker.png" align="right" />
+# The GermaParl R Data package <img src="https://raw.githubusercontent.com/PolMine/GermaParl/master/inst/sticker/hexsticker.png" align="right" />
 
 ### About
 

diff --git a/README.md b/README.md
@@ -1,7 +1,7 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
-# The GermaParl R Data package <img src="inst/sticker/hexsticker.png" align="right" />
+# The GermaParl R Data package <img src="https://raw.githubusercontent.com/PolMine/GermaParl/master/inst/sticker/hexsticker.png" align="right" />
 
 ### About
 

diff --git a/docs/index.html b/docs/index.html
diff --git a/inst/sticker/hexsticker.png b/inst/sticker/hexsticker.png
diff --git a/inst/sticker/make_sticker.R b/inst/sticker/make_sticker.R
@@ -1,15 +1,20 @@
 library(hexSticker)
 library(RColorBrewer)
+library(magick)
 
 # imgurl <- "http://www.constructalia.com/repository/transfer/it/resources/ContenidoProyect/05358730FOTO_AMPLIADA.jpg"
 
 imgurl <- "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcSUtUA4SwDMvXw8Y6zsa4EgH93VdpAkMrdpv67BmbeHPjgsqIvv"
+plenary <- image_read(imgurl)
+plenary_min <- image_crop(plenary, "270x179")
+plenary_min_file <- file.path(tempdir(), "plenary_min.png")
+image_write(plenary_min, path = plenary_min_file, format = "png")
 
 sticker(
-  imgurl,
+  plenary_min_file,
   package="GermaParl",
   p_size = 7,
-  s_x = 1, s_y = 0.80, s_width = .64,
+  s_x = 1, s_y = 0.80, s_width = .66,
   h_fill = "white",
   h_color = "#004C93",
   p_color = "#004C93",
@@ -25,7 +30,7 @@ sticker(
   # l_height = 4
 )
 
-library(magick)
+
 polmineR_sticker <- image_read('~/Lab/github/GermaParl/inst/sticker/hexsticker.png')
 polmineR_sticker_min <- image_scale(polmineR_sticker, "130x150")
 image_write(polmineR_sticker_min, path = "~/Lab/github/GermaParl/inst/sticker/hexsticker.png", format = "png")