data_reduction <- function(input, data) { if (input$N_reduction == TRUE) { data <- data[1:input$N, ] } data }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.