fix: user supplied 'file'-argument works correctly

- use path constructed from 'file' argument instead of hard code "dev/run_dev.R" - improve error message on failure Refs: ThinkR-open#886
ilyaZar · Jun 2, 2023 · d08bdc9 · d08bdc9
1 parent 5acafc8
commit d08bdc9
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/run_dev.R b/R/run_dev.R
@@ -31,12 +31,10 @@ run_dev <- function(
 
   # Stop if it doesn't exists
   if (file.exists(try_dev)) {
-    run_dev_lines <- readLines(
-      "dev/run_dev.R"
-    )
+    run_dev_lines <- readLines(try_dev)
   } else {
     stop(
-      "Unable to locate dev file"
+      "Unable to locate run_dev-file passed via the 'file' argument."
     )
   }