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.

INKAVERSE

More information from INKAVERSE project: https://inkaverse.com/

Sticker design

In the layer include_image(opts = "magick package") you can add different arguments and combine them using asterisk (*) or list("magick function").

Options available in magick package

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

Package setup

library(huito)

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

Sticker design

label <- label_layout(size = c(5.08, 5.08)
                      , border_color = NA
                      , border_width = 0
                      , background = "#ffe701"
                      ) %>% 
  include_image(value = "logo_inkaverse.jpg" 
                , size = c(3.97, 3.97)
                , position = c(2.55, 2.06)
                ) %>%
  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.

sticker <- label %>%
  label_print(filename = "INKAVERSE"
              , 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 %>% 
  image_read_pdf()  %>% 
  image_crop(geometry = "600x600+40") %>%
  image_crop(geometry = "560x600-40") %>%
  image_transparent('blue') %>% 
  image_write("INKAVERSE.png")

Final sticker result

include_graphics("INKAVERSE.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.