Prevent parseUTF8 from overwriting srcfile attribute (#930)

NEWS.md

@@ -1,5 +1,6 @@
 # plumber (development version)
 
+* Fix #916, related to `parseUTF8` return value attribute `srcfile` on Windows. (#930) 
 
 # plumber 1.2.1
 

R/utf8.R

@@ -70,9 +70,9 @@ parseUTF8 <- function(file) {
     file <- tempfile(); on.exit(unlink(file), add = TRUE)
     writeLines(lines, file)
   }
-  
+
   # keep the source locations within the file while parsing
-  exprs <- try(parse(file, keep.source = TRUE, srcfile = src, encoding = enc))
+  exprs <- try(parse(file, keep.source = FALSE, srcfile = src, encoding = enc))
   if (inherits(exprs, "try-error")) {
     stop("Error sourcing ", file)
   }

tests/testthat/test-utf8.R

@@ -0,0 +1,4 @@
+test_that("parseUTF8 has same srcfile attribute as file arg input", {
+  filename <- test_path("files/plumber.R")
+  expect_equal(attr(parseUTF8(filename), "srcfile")$filename, filename)
+})