In thebackman/filetools: Useful tools for files

purrr::walk(params$res, function(x) {
  filename <- paste("####", " ", x[[1]], "\n")
  cat(filename)
  purrr::walk2(x[[2]], x[[3]], function(y, z) {
    cat(paste0("**", y, "**", "\n"))
    cat("\n")
    cat(paste0("*", z, "*", "\n"))
    cat("\n")
  })
  cat("\n")
})

thebackman/filetools documentation built on May 20, 2019, 10:23 p.m.