blog_dir = '/media/msfz751/2560x/repos/blogdown-sites/fonzie-oilgains' file <- file.path(blog_dir, "content/blog", "2018-11-18-otc-2016-second-day.md") file
# before removing image line text_md <- readLines(file, warn = FALSE) text_md[1:15]
grep(pattern = "image:", text_md)
# remove one line new_text <- text_md[-c(10)] new_text[1:15]
# read markdown file x <- xfun::read_utf8(file) res <- blogdown:::split_yaml_body(x) # split in two
names(res)
res$yaml res$yaml_range res$yaml_list
res_yaml <- res$yaml res_yaml
grep("online:", res_yaml) grep("online:", res_yaml, value = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.