library(data.table) dt <- data.table( ID = c(1:5, NA, NaN, Inf), desc = c(paste0("salut", 1:5), "", " ", "_") ) saveRDS(dt, "tests/shiny_app/test-data.rds")
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.