util functions

lwjohnst86 · May 30, 2019 · 91ab437 · 91ab437
1 parent 1e41454
commit 91ab437
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -0,0 +1,9 @@
+
+util_remove_repeated_empty_lines <- function(.lines) {
+  rle(.lines)$values
+}
+
+utils_write_file <- function(.lines, .output_path) {
+  readr::write_lines(.lines, .output_path)
+  return(invisible(NULL))
+}