From 91ab437ae808e1f7361f53bb672d6e9af445a27d Mon Sep 17 00:00:00 2001
From: Luke Johnston <lwjohnst@gmail.com>
Date: Thu, 30 May 2019 20:48:21 +0200
Subject: [PATCH] util functions

---
 R/utils.R | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 R/utils.R

diff --git a/R/utils.R b/R/utils.R
new file mode 100644
index 0000000..1334787
--- /dev/null
+++ 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))
+}