Skip to content
Snippets Groups Projects
Commit 5820667e authored by Florian Angerer's avatar Florian Angerer
Browse files

Fixed references to original source files if installing from a compressed archive.

parent 1251ba2d
No related branches found
No related tags found
No related merge requests found
...@@ -134,7 +134,7 @@ function(dir, outDir) ...@@ -134,7 +134,7 @@ function(dir, outDir)
singleOutFile <- file.path(outCodeDir, basename(f)) singleOutFile <- file.path(outCodeDir, basename(f))
writeLines(tmp, file(singleOutFile)) writeLines(tmp, file(singleOutFile))
writeLines(paste0("#line 1 \"", f, "\""), con) writeLines(paste0("#line 1 \"", singleOutFile, "\""), con)
writeLines(tmp, con) writeLines(tmp, con)
} }
close(con); on.exit() close(con); on.exit()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment