include tar_read as well as tar_load for walk_call_sql to consume (#25)

Author: kiwiroy

R/utils.R

@@ -30,7 +30,7 @@ sql_deps <- function(path) {
 sql_expr <- function(path) {
   tryCatch( {
     text <- sql_lines(path)
-    text <- text[grepl("tar_load", text)]
+    text <- text[grepl("tar_(load|read)", text)]
     parse(text = text)
   },
     error = function(e) {

tests/testthat/test-tar-sql-deps.R

@@ -3,6 +3,7 @@ targets::tar_test("tar_sql_deps() works", {
     "-- !preview conn=DBI::dbConnect(RSQLite::SQLite())",
     "-- tar_load(data1)",
     "-- tar_load(data2)",
+    "-- tar_read(data3)",
     "select 1 as my_col",
     ""
   )
@@ -17,5 +18,5 @@ targets::tar_test("tar_sql_deps() works", {
   })
   suppressMessages(targets::tar_make(callr_function = NULL))
   out <- tar_sql_deps("query.sql")
-  expect_equal(out, c("data1", "data2"))
+  expect_equal(out, c("data1", "data2", "data3"))
 })