x <- data.table::fread(system.file("extdata", "Newspapers.csv", package = "nladwa"))
x$Date <- as.Date(x$Date)
print(x)
wideToLong(x = x, id.vars = "Date", writeToClipboard = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.