Update test_driver_drake.R

realxinzhao · realxinzhao · commit 472a099d93b3 · 2023-11-08T09:04:29.000-05:00
diff --git a/tests/testthat/test_driver_drake.R b/tests/testthat/test_driver_drake.R
@@ -33,7 +33,7 @@ test_that("plan is a dataframe",{
     skip("No drake package - skipping test")
   }
    plan <- driver_drake(stop_before = c("module_xfaostat_L103_ProducerPrices"), return_plan_only = TRUE)
-   expect_type(plan, "list")
+   expect_is(plan, "data.frame")
 })
 
 test_that("load_from_cache works", {

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ test_that("plan is a dataframe",{`
`33`	`33`	`skip("No drake package - skipping test")`
`34`	`34`	`}`
`35`	`35`	`plan <- driver_drake(stop_before = c("module_xfaostat_L103_ProducerPrices"), return_plan_only = TRUE)`
`36`		`- expect_type(plan, "list")`
	`36`	`+ expect_is(plan, "data.frame")`
`37`	`37`	`})`
`38`	`38`
`39`	`39`	`test_that("load_from_cache works", {`