Ensure we can parse empty input (#211)

r-lib · Jul 15, 2024 · 99102f8 · 99102f8
1 parent 23f6656
commit 99102f8
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/R/parse_all.R b/R/parse_all.R
@@ -126,7 +126,11 @@ parse_all.character <- function(x, filename = NULL, allow_error = FALSE) {
   res <- res[order(res$line), c("src", "expr")]
 
   # Restore newlines stripped while converting to vector of lines
-  res$src <- paste0(res$src, "\n")
+  if (length(res$src)) {
+    res$src <- paste0(res$src, "\n")
+  } else {
+    res$src <- character()
+  }
 
   res$expr <- lapply(res$expr, removeSource)
 

diff --git a/tests/testthat/test-parse_all.R b/tests/testthat/test-parse_all.R
@@ -1,3 +1,7 @@
+test_that("can parse empty input", {
+  expect_equal(parse_all(character())$src, character())
+})
+
 test_that("can parse even if no expressions", {
   expect_equal(parse_all("")$src, "\n")
   expect_equal(parse_all("#")$src, "#\n")