Nothing
df <- read.csv(params$data, stringsAsFactors = FALSE) df$viewer <- paste(create_image_look_up(img_src = df$pictures, img_caption = params$captions), create_sound_play(snd_src = df$audio)) df <- df[, -which(colnames(df) %in% c("audio", "pictures"))]
DT::datatable(data = df, filter = 'top', rownames = FALSE, options = list(pageLength = 50, dom = 'tip'), escape = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.