#' ---
#' Title: "Annoying message"
#' Author: "Matthieu"
#' Date: 2019-03-11
#' ---
################################
#'## Read data
################################
library(tidyverse)
file_tmp <- tempfile()
write_csv(iris, file_tmp)
a <- read_csv(file_tmp)
file.remove(file_tmp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.