Create embed_data_html.R

copy code from https://github.com/Pakillo/rmdTemplates/blob/master/R/embed_data_html.R