#' Gets the ids of the melted data frame.
#' @param data. The data to be transformed. This is assumed to be a three
#' column melted dataframe, using reshape2 <http://cran.r-project.org/web/packages/reshape2/index.html>.
#' The first column should contain IDs, the second column should contain variable
#' names, and the third column should contain variable values.
#' @export
ids <- function(data = get_data()) { unique(data[[1]]) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.