# NOT RUN {
stimuli <- demo_stim() |> resize(0.5)
plot_stim(stimuli)
# }
# NOT RUN {
# default padding is 10px internal and external
plot(stimuli, fill = "dodgerblue")
plot(stimuli, external_pad = 0, fill = "dodgerblue")
plot(stimuli, padding = 0, fill = "dodgerblue")
# make 8 numbered images
n <- blank(8, color = grDevices::cm.colors(8)) |>
label(1:8, gravity = "center", size = 50)
# 2 rows, allocating by row
plot(n, nrow = 2)
# 2 rows, allocating by column
plot(n, nrow = 2, byrow = FALSE)
# }
Run the code above in your browser using DataLab