library(huito)
label <- label_layout(data = NA
, size = c(10, 2.5)
, background = "yellow"
) %>%
include_shape(
value = "hexagon"
, position = c(1.2, 1.25)
, background = "red"
, border_width = 1
, size = 2.4
#, panel_size = 2.4*1.157175
)
label %>% label_print("sample")
ts <- label$opts
Run the code above in your browser using DataLab