# NOT RUN {
stimuli <- demo_stim()
have_tems <- require_tems(stimuli)
# }
# NOT RUN {
# produces an error because no tems
no_tems <- stimuli |> remove_tem()
require_tems(no_tems)
# warns that some images were removed
mix_tems <- c(stimuli, no_tems)
have_tems <- require_tems(mix_tems)
# produces an error because tems are different
demo_tems() |> require_tems(all_same = TRUE)
# }
Run the code above in your browser using DataLab