From 682e775c3280b324afec8d24edade5c09ecacbd9 Mon Sep 17 00:00:00 2001 From: David Mawdsley Date: Tue, 30 Jan 2018 10:08:00 +0000 Subject: [PATCH] Implement using @naupaka 's suggestions --- bin/generate_md_episodes.R | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/bin/generate_md_episodes.R b/bin/generate_md_episodes.R index bcc199d..6c27d9c 100644 --- a/bin/generate_md_episodes.R +++ b/bin/generate_md_episodes.R @@ -34,17 +34,19 @@ generate_md_episodes <- function() { }, src_rmd, dest_md) # Read the generated md files and add comments advising not to edit them - sapply(dest_md, function(y) { - con = file(y) + vapply(dest_md, function(y) { + con <- file(y) mdfile <- readLines(con) if (mdfile[1] != "---") stop("Input file does not have a valid header") - 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)) } generate_md_episodes() -- 2.30.2