- mdfile <- append(mdfile, "# Please do not edit this file directly; it is auto generated.", after = 1)
- mdfile <- append(mdfile, paste("# Instead, please edit",
- basename(y), "in _episodes_rmd/"), after = 2)
- writeLines(mdfile, con)
- })
-
+ mdfile <- append(mdfile, "# Please do not edit this file directly; it is auto generated.", after = 1)
+ mdfile <- append(mdfile, paste("# Instead, please edit",
+ basename(y), "in _episodes_rmd/"), after = 2)
+ writeLines(mdfile, con)
+ close(con)
+ return(paste("Warning added to YAML header of", y))
+ },
+ character(1))