specify minimum data.table version and condition tests on cmdstan version

Author: jgabry

DESCRIPTION

@@ -40,7 +40,7 @@ Depends:
     R (>= 4.0.0)
 Imports:
     checkmate,
-    data.table,
+    data.table (>= 1.11.6),
     jsonlite (>= 1.8.7),
     posterior (>= 1.5.0),
     processx (>= 3.5.0),

tests/testthat/test-csv.R

@@ -398,16 +398,20 @@ test_that("read_cmdstan_csv() works for pathfinder", {
     "lp__", "lp_approx__", "path__", "alpha",
     "beta[1]", "beta[2]", "beta[3]"
   )
+  if (cmdstan_version() < "2.37.0") {
+    # the path__ column was added to pathfinder output in CmdStan 2.37
+    expected_variables <- setdiff(expected_variables, "path__")
+  }
   expect_equal(posterior::variables(csv_output$draws), expected_variables)
   expect_equal(csv_output$metadata$variables, expected_variables)
 
   filtered_output <- read_cmdstan_csv(
     fit_logistic_pathfinder$output_files(),
-    variables = c("path__", "lp_approx__")
+    variables = c("lp_approx__", "lp__")
   )
   expect_equal(
     posterior::variables(filtered_output$draws),
-    c("path__", "lp_approx__")
+    c("lp_approx__", "lp__")
   )
 })
 

tests/testthat/test-model-pathfinder.R

@@ -103,10 +103,12 @@ expect_pathfinder_output <- function(object, num_chains = NULL) {
 test_that("Pathfinder Runs", {
   expect_pathfinder_output(fit <- mod$pathfinder(data=data_list, seed=1234, refresh = 0))
   expect_s3_class(fit, "CmdStanPathfinder")
-  expect_equal(
-    posterior::variables(fit$draws()),
-    c("lp__", "lp_approx__", "path__", "theta")
-  )
+  expected_variables <- c("lp__", "lp_approx__", "path__", "theta")
+  if (cmdstan_version() < "2.37.0") {
+    # the path__ column was added to pathfinder output in CmdStan 2.37
+    expected_variables <- setdiff(expected_variables, "path__")
+  }
+  expect_equal(posterior::variables(fit$draws()), expected_variables)
 })
 
 test_that("pathfinder() method works with data files", {