open_table <- function(r){
# Create tempfile
tmp <- tempfile()
# Open Raw Connection to r's content
httr::content(r, type = 'raw') %>%
readr::write_file(tmp)
read.delim(tmp, fileEncoding = "UTF-16LE", sep = "\t", header = T, stringsAsFactors = F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.