more debug

orionw · Aug 15, 2019 · 7d16add · 7d16add
1 parent ef26166
commit 7d16add
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat/test_ensemble_voting.R b/tests/testthat/test_ensemble_voting.R
@@ -8,6 +8,9 @@ PrepareNumericTitanic <- function() {
 
   print("Listing dirs")
   print(list.files(getwd()))
+  print(list.files("ModelComparison"))
+  print(getwd())
+
   titanic <- read.csv("titanic.csv")
   titanic <- titanic[, c("Survived", "Age",
                          "Siblings.Spouses.Aboard", "Parents.Children.Aboard", "Fare")]

diff --git a/tests/testthat/test_package_integration.R b/tests/testthat/test_package_integration.R
@@ -8,6 +8,8 @@ PrepareNumericTitanic <- function() {
 
   print("Listing dirs")
   print(list.files(getwd()))
+  print(list.files("ModelComparison"))
+  print(getwd())
   titanic <- read.csv("titanic.csv")
   titanic <- titanic[, c("Survived", "Age",
                          "Siblings.Spouses.Aboard", "Parents.Children.Aboard", "Fare")]

diff --git a/tests/testthat/test_plot_metrics.R b/tests/testthat/test_plot_metrics.R
@@ -7,6 +7,8 @@ PrepareNumericTitanic <- function() {
 
   print("Listing dirs")
   print(list.files(getwd()))
+  print(list.files("ModelComparison"))
+  print(getwd())
   titanic <- read.csv("titanic.csv")
   titanic <- titanic[, c("Survived", "Age",
                          "Siblings.Spouses.Aboard", "Parents.Children.Aboard", "Fare")]

diff --git a/tests/testthat/test_validation_methods.R b/tests/testthat/test_validation_methods.R
@@ -7,6 +7,8 @@ PrepareNumericTitanic <- function() {
 
   print("Listing dirs")
   print(list.files(getwd()))
+  print(list.files("ModelComparison"))
+  print(getwd())
   titanic <- read.csv("titanic.csv")
   titanic <- titanic[, c("Survived", "Age",
                          "Siblings.Spouses.Aboard", "Parents.Children.Aboard", "Fare")]

diff --git a/tests/testthat/test_voting.R b/tests/testthat/test_voting.R
@@ -6,6 +6,8 @@ library(ModelComparison)
 PrepareNumericTitanic <- function() {
   print("Listing dirs")
   print(list.files(getwd()))
+  print(list.files("ModelComparison"))
+  print(getwd())
   titanic <- read.csv("titanic.csv")
   titanic <- titanic[, c("Survived", "Age",
                          "Siblings.Spouses.Aboard", "Parents.Children.Aboard", "Fare")]