Yupana

More information from the Yupana project: https://inkaverse.shinyapps.io/yupana/

Sticker design

In the include_image(opts = "magick package") layer you can add different image-processing options and combine them using an asterisk (*) or a list of magick functions.

Available image-processing options are provided by the magick package:

https://CRAN.R-project.org/package=magick

Select a different panel color for your sticker (e.g. include_shape(panel_color = "color")).

library(huito)

font <- c("Permanent Marker")

huito_fonts(font)

label <- label_layout(size = c(5.08, 5.08)
                      , border_color = NA
                      , border_width = 0
                      , background = "#ffe701"
                      ) %>% 
  include_image(value = "logo_yupana.jpeg" 
                , size = c(4.4, 4.4)
                , position = c(2.54, 2)
                ) %>%
  include_shape(size = 5.08
                , border_width = 3
                , border_color = "#505456"
                , position = c(2.54, 2.54)
                , panel_color = "blue"
                ) %>%
  include_text(value = "inkaverse.com"
               , size = 6
               , position = c(3.6, 0.75)
               , angle = 30
               , color = "white"
               , font = font[1]
               ) 

Preview mode

label %>% 
  label_print(mode = "preview")

Complete mode

The final file is exported in pdf format.

logo <- label %>% 
  label_print(filename = "yupana"
              , margin = 0
              , paper = c(5.5, 5.5)
              , mode = "complete"
              )

Transparent logo

Import the image in pdf format and cut the border and make the panel_color transparent.

sticker <- logo %>%
  image_read_pdf()  %>% 
  image_crop(geometry = "600x600+40") %>% 
  image_crop(geometry = "560x600-40") %>% 
  image_transparent('blue') %>% 
  image_write("yupana.png")

Final sticker result