styling on character(0) does return warning instead of random error

Author: lorenzwalthert

R/transform.R

@@ -83,6 +83,7 @@ make_transformer <- function(transformers) {
 #' @inheritParams compute_parse_data_nested
 #' @inheritParams apply_transformers
 parse_transform_serialize <- function(text, transformers) {
+  text <- assert_text(text)
   pd_nested <- compute_parse_data_nested(text)
   start_line <- find_start_line(pd_nested)
   if (nrow(pd_nested) == 0) {

R/utils.R

@@ -39,3 +39,13 @@ calls_sys <- function(sys_call, ...) {
     error <- system(sys_call, ...)
   }
 }
+
+#' Assert text to be of positive length and replace it with the empty
+#' string otherwise.
+#' @param text The input to style.
+assert_text <- function(text) {
+  if (length(text) < 1) {
+    text <- ""
+  }
+  text
+}