The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

Huito

Details and examples of more stickers you can find in the following link: https://github.com/GuangchuangYu/hexSticker

Sticker design

You can design your sticker by layers. You can add each element individually in the design.

Package setup

library(huito)

font <- c("Permanent Marker")
huito_fonts(font)

You can find more fonts in https://fonts.google.com/

Sticker design

label <- label_layout(size = c(5.08, 5.08)
                      , border_width = 0
                      ) %>% 
  include_image(value = "https://flavjack.github.io/huito/img/shipibo.png"
                , size = c(7, 7)
                , position = c(2.55, 2.52)
                , opts = list("image_scale(600)")
                ) %>%
  include_text(value = "H"
               , size = 45 
               , position = c(1.15, 2.7)
               , color = "#00a85a"
               , font = font[1]
               ) %>%
  include_text(value = "u"
               , size = 45 
               , position = c(2.07, 2.7)
               , color = "#f58735"
               , font = font[1]
               ) %>%
  include_text(value = "i"
               , size = 45 
               , position = c(2.73, 2.7)
               , color = "#4774b8"
               , font = font[1]
               ) %>%
  include_image(value = "https://flavjack.github.io/huito/img/huito_fruit.png"
                , size = c(1.3, 1.3) 
                , position = c(4.06, 2.6)
                ) %>%
  include_text(value = "t"
               , size = 45 
               , position = c(3.33, 2.7)
               , color = "#a9518b"
               , font = font[1]
               ) %>%
  include_shape(size = 5.08
                , border_width = 3
                , border_color = "black"
                , 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
               )

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

Preview mode

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

Complete mode

The final file is exported in pdf format.

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

Transparent logo

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

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

Final sticker result

include_graphics("huito.png")

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.