R/clean_data.R

In eogmartins/biotelemetry: Functions to Process and Explore Biotelemetry Data

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 = "")))
    }
  }
}