-
-
Notifications
You must be signed in to change notification settings - Fork 1
/
germinar.Rmd
104 lines (82 loc) · 2.72 KB
/
germinar.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
---
title: "GerminaR"
description: 'GerminaR stickers'
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{GerminaR}
%\VignetteEncoding{UTF-8}
%\VignetteEngine{knitr::rmarkdown}
editor_options:
chunk_output_type: console
---
```{r setup, include = FALSE}
source("https://raw.githubusercontent.com/Flavjack/inti/master/pkgdown/favicon/docs.r")
# source("https://inkaverse.com/docs.r")
```
More information from GerminaR project: <https://germinar.inkaverse.com/>
# Sticker design
In the layer `include_image(opts = "magick package")` you can add different arguments and combine them using asterisk (`*`).
Options available in [magick package](https://CRAN.R-project.org/package=magick)
> Select different panel color for your sticker (i.e. `include_shape(panel_color = "color")`).
```{r echo = TRUE}
library(huito)
font <- c("Paytone One", "Permanent Marker")
huito_fonts(font)
label <- label_layout(size = c(5.08, 5.08)
, border_width = 0
, background = "#b1d842"
) %>%
include_image(value = "https://germinar.inkaverse.com/img/seed_germination.png"
, size = c(5.5, 5.5)
, position = c(2.55, 1.26)
, opts = 'image_transparent("white")*image_modulate(brightness = 0)'
) %>%
include_shape(size = 5.08
, border_width = 0
, position = c(2.54, 2.54)
, panel_color = "blue"
) %>%
include_text(value = "GerminaR"
, font[1]
, size = 23
, position = c(2.54, 3.55)
, color = "#a64d79"
) %>%
include_text(value = "inkaverse.com"
, font[2]
, size = 6
, position = c(3.9, 0.96)
, angle = 30
, color = "white"
)
```
## Preview mode
```{r, echo = TRUE}
label %>%
label_print(mode = "preview")
```
## Complete mode
The final file is exported in `pdf` format.
```{r, echo = TRUE}
sticker <- label %>%
label_print(filename = "GerminaR"
, margin = 0
, paper = c(5.5, 5.5)
, mode = "complete"
)
```
<embed src="GerminaR.pdf" height="500" width="100%" alt="pdf" pluginspage="http://www.adobe.com/products/acrobat/readstep2.html">
# Transparent logo
Import the image in pdf format and cut the border and make the `panel_color` transparent.
```{r, echo = TRUE}
sticker %>%
image_read_pdf() %>%
image_crop(geometry = "600x600+40") %>%
image_crop(geometry = "560x600-40") %>%
image_transparent('blue') %>%
image_write("GerminaR.png")
```
## Final sticker result
```{r out.width = "35%"}
include_graphics("GerminaR.png")
```