find.n <- function(dat, fast) { if(nrow(dat) * 0.5 > 200) { n <- 200 } else { n <- round(nrow(dat) * 0.5) } n }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.