#wells <-
#function(n){
# x<-list(
# "96"=plates::well(96),
# "24"=plates::well(24),
# "8"=plates::well(8)
# )
# x[[as.character(n)]]()
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.