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)


f0nzie/blogdownPageBundle documentation built on June 29, 2020, 12:53 a.m.