test_that("Test suite aaf.R, seq_onion()",{
for(i in 1:2){
for(slerp in c(TRUE,FALSE)){
expect_silent(seq_onion(from=rquat(1),to=rquat(1),len=3,slerp=slerp))
expect_silent(seq_onion(from=roct(1),to=roct(1),len=3,slerp=slerp))
expect_silent(seq_onion(from=rquat(1),by=rquat(1),len=3,slerp=slerp))
expect_silent(seq_onion(from=roct(1),by=roct(1),len=3,slerp=slerp))
expect_silent(seq_onion(to=rquat(1),by=rquat(1),len=3,slerp=slerp))
expect_silent(seq_onion(to=roct(1),by=roct(1),len=3,slerp=slerp))
}
}
expect_error(seq_onion(length.out=0))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.