clean_data <- function(path, grep, overwrite = FALSE) {
files <- dir(path)
for (i in files) {
dat <- readLines(file.path(path, i))
idx <- grepl(pattern = grep, x = dat)
dat <- dat[idx]
if (overwrite) {
writeLines(dat, con = file.path(path, i))
} else {
writeLines(dat, con = file.path(path, paste("cleaned_", i, sep = "")))
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.